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VOLUME 1 FEATURES: 

• Complete Data Base system with: 
1 —Full screen data entry 

— Fast sorting caD3bil(ties 

— Extensive mu tuciause search tacihiies 

— On line help facilities 

" On dfsk tutorial and instruclions 

> 2 arcade style games with 3D graphics 
■ Learning to Prngram in BASIC: Lesson 1 

Input/output, vanables and assignments. 

condilionaJ branches. 

• Towers of Hanoi with solution 

• The Personal House Purchase Analyzer: 
Evalualion ot financial scenarios 


VOLUME 2 FEATURES: 

* Complete Word Processing Packagewirh: 

— Cut- and -paste, tu I formatting capaOi ities, 
Margin Justit.ication, Page Numhenng 

— Access to programmable printer capa&ililies 

* 4 action screens ^ameT '^SPOOK CASTLE"! 

* Childrens educational game: counting 

* Learning to Program in BASIC — Lesson 2: 
Array S siring variab es, FOR-NEXT loop 

* B Queen's puzzle with solution 

* Loans ana Mortgages program 

* File backup/copy prooram ullllly 


VOLUME 3 FEATURES: 

■ A complete Typing Tutof program 

Use fhe built m lessons or create your nvn! 
Complete with sell evaluator 

■ Afcade action gama "Chomper" 

— 4 screens to complete al each leve 

■ Mind puzzling strategy game: "Cubic" 
« ttome Sudgetler progiam 

' Report Generator (used with Vd 1 database) 

■ Hitorlal: Powerful sorting techniques 

• Learning to Progiam In Basic: Lesson 3: 
PEEKS, POKES, print controls, multidimensional 
arrays and suT)routmes 


VOLUME 4 FEATURES: 

■ The Gold Dish Art package 
High-res loyslick controlled painter prgm with 
these powerful features: 

— Preprogrammed shapes 

— Fi 1 capabilities, Free drawing mode 

— Unflo' capatiFlily tof error-correction 

— Pnnt capability, Zoom 

• The Gold Dislt Trivia Game with 

— Over 500 questions. Multi p ayer, scoring 

• Arcade action game r/ith 3D graphics 

• Educational: '^ile operations on the CG4 

• Programming Tutorial: 

Binafy Search technique i1 ustrated 

• Complete checkwriter program 


"I've always Ihoughl good programs cesl a lol more. Now 
there's Gold Disk:' Karl Hi don, TRANSACTOR 

Official approval from "Small Things Considered" 

Radio WNYCAMaa New York 

''A great way to get inexpensive quality software" 

L Redgers. TPU6 (Magazine 

"The products low price, high quality and simplicity of use, 
make it an excelleni addition . . y CLASSIC Bookshops 

"Gold Disk remains on top." DASHER INDUSTRIES, Distributor 

". . .the right kind o1 product at the right prices." 

COLES, THE BOOK PEOPLE 

"Gold Disk idea's time has come;' 

PhiJKempJNPUT Magazine 


VOLUME 5 FEATURES: 

• The Gold Disk Sprite and Font Editor 
package 

Joystick controlled graphic package for Sprites 
and character graphics with: 

— Mull! -colour ca pa bill tie 5 

— High resu ution capabilities 

— Easy to follow instructions 

■ Challenge game: "Kode Breaker" 

• Arcade action, arcade graphics gams: 
"Cosmfc Chaos - Outstanding playlF 

• Educational l^tariat: How to Use Sprites 
> "Knighti Tour" with solution 



VOLUME 6 FEATURES 

• Enhanced Basic 

— Over fifty powerful new commands and functions 

— Increases programmer productivity 

— Simplifies programming 

— Easy-to-use 

• Action Strategy Game '^ogi GinbanI" 

• 4 Screen Game: "Return to Spook Castle" 

• Sound HiteHal - Part 1 

• Iblorial on "Oisk Manipulation" 

■ Educational: Encoding — Decoding 

• Financial Options Program - Evaluate 
different payment scenanos 


VOLUME 7 FEATURES: 

■ Full Spreadstieet Program 

— Ability to evaluate "What il" scenarios 

— Powerful and easy-to-use tool with 

— Large Worl<sheet, Vanable width columns 

— niernal File Operations, Printer Option 

■ Casino Pack "Poker ' and "B ack Jack" 

• Sonus Card Game "Solitaire' 
•Sound Tutorial — Part II 

■ Tutorial on error recovery 

• EducaUonaL: Stacks 

• Business: Balance Sheet 


VOLUMES FEATURES: 

■ FORTHI 

The ease of BASfC. the Power of Machine Code 
Complete im pie mentation of FIG FORTH! 

■ The Gotd Dish Trivia Game II 

— Over 500 new and interesting questions 

— Mulli-ptayer, auto-sconng 

■ An:ade action game "Cube Slmker" 
3D action, multMevel 

• Programming witJ) Fonh Pan 1 

• Ibtorial — Screen manipulation 

> Educational — working with queues 

• Business; Compound and Simp e Interest 
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The Languages Issue 

Start Address Editorial 3 



Bits and Pieces 5 

Disk Cleaner 

The I54!'s amazing " ■ " 

World's Simplest Un-Scralch 

C-fl'iDireclorv LOAD & RUN 

Jumbo Relative Files 

APPENDingMLloBASiC 

Another Use For " ,A" 

Creaiing DEL Files 

Read Blocks Free Directly 

1541 Track Protect 

Scratch & Save 

C-6A POP 

C64/VIC20 PRINT AT Commiind 

Menti Select 

LIST Freeze 

A Couple o( Plus/'l Ckxjdies 

BASIC Pragr a mining Tip - Simulated IF..THEN..ELSE 

ML Binary/ASCII Conversion Routines 

LefL'er Flyi 



Letters 



11 



JusI Love Those Transactor Disks 

Ad'Vice 

A Few Notes On DOS 

A Bit More DOS Advice 

18-OScrewtip Fixed 

l^ng Lost PAL 

Chop, Goes The Executor 

News BRK 78 

Submitting NEWS BRK Press Releases 

The Worst Kind Of Crash 

PCCFA - Computers In Action 

ISECON SS - The InEormahon Systems Education 

Conference 

Western Ontario Business/ Computer Show and 

Seminar 

Evolution of the Digital Pacific 

Four New Boiiks from Abacus 

How To Write Papers And Reports About ComputeT 

Technology 



TransBASIC Installment *5 15 

The Atari 520 ST: An Overview 28 

Doing Away With Drama a programming forethougn. 30 

C Power: A Users Review 31 

Commodore 1 28 Keywords and Tokens 32 

From Apple To Commodore And Back 34 

What Is COMAL? 37 

COMAL For The Commodore 64 Benenhan basic .... 40 

Is lOK Enough? U5inglheCOMALRAMVer3ionQ.14 45 

GO LOGO GO A Logo lamilJarizer 48 

Hidaen Op— Codes Exploring linchanedCPUlemlor^' 50 

A CPU Comparison The 6502, eSOS, and SSOOO. side-by-slde 53 

I he Intel 0O08 TheeSO^ofUiePCworld 58 

A Quick PC Primer including a summdry of PC basic and MS DOS .... 61 

Speeding Up BASIC Programs a ume consumpnon anaiy«- . . 66 

Hi-Res Text Maker variable size .ex. made easy' 69 

The Save @ Debate Rages On! 73 

olangUageS a look at some very rare dialects 10 

Compu-toons 77 



Note: Before entering programs, 
see "Verifizer" on page 4 
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Program Listings In The Transactor 

All programs listed in The Transactor will appear as they would on your screen in Upper/Lower case 
mode. To clarity two potential character mix-ups, zeroes will appear as 0' and the letter "o" will of course 
be in lower case. Secondly, the lower case L (T) has a flat top as opposed to the number I which has an 
angled top. 

Many programs will contain reverse video characters that represent cursor movements, colours, or 
function keys. These will also be shown exactly as they would appear on your screen, but they're listed 
here for reference. Also remember: CTRL-q within Quotes is identical to a Cursor Down, et at. 

Occasionally programs will contain lines that show consecutive spaces. Often the number of spaces you 
insert will not be critical to correct operation of the program. When it is, the required number of spaces 
will be shown. For example: 



prinT 



flush right " - would be shown as - print " [10 spaces]f!ush right ' 



Cursor Characters For PET / CBM / VIC / 64 



Down - Q 
Up -■ 

RiSlit - ■ 
Left - [iJt| 
RVS - B 
RVSOff- 



Inserl - 

Delete - Q 

Clear Scm - 
Home - 

STOP 



B 



Colour Characters For VIC / 64 



8 



Black - 
White - 
Red 
Cyan - {Cyn| 
Purple- IPur] 
Green - ■ 
Blue - H 
Yellow- [Yel] 



Orange - 
Drown 

Lt, Red ' 

Grey 1 - 

Grey 2 - 

Lt. Green - 

UBIue - 
Grey 3 



[Gr3] 



Function Kcya For VIC / 64 



Fl 
F2 
F3 
F4 



F5 

F6 
F7 
F8 
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Two things I'd like to say. Both semi-relafed. Here it is. 

Two barrier zones have developed on either side of our fair 
industry, leaving us in the middle. And when I say us. 1 mean 
you, and I. Because we are those with thai affinity for our 
micros, much like musicians have for their instruments. And 
much hke an instrument, each zone has several sounds, but 
has the same tone throughout the entire range. 

In one zone, perhaps to our far left, is the general conception 
that the microcomputer is over. A new toy, a new hobby, a 
passing fad not unlike any other. They'll say, "get out now 
before it's too late" to the retailer sporting a blank purchase 
order. Quite contrary to the "ya. let's sell micros" attitude of 
only a short while ago. 

Towards the inside of the same zone is the opinion that the 
seige is over, and the micro necessity will be determined by the 
individual - not the public at large whence many took the 
plunge only because the Jones's did. They'll say, "micros will 
continue to sell just like guitars will, but Vm not sure / really 
want one, and I've no plans to start selling them either. 1 want 
something different because I want to be there as it happens, as 
opposed to having a lot of catching up to do". 

Then there's us, once again, who know we're in love, who 
know there will be those who resist and chastise, who know 
there will be those without the will to participate in our domain 
which they would probably find fascinating given half a 
chance. But we also know that new interest is being generated, 
that new faces will indeed make their entrance, and names 
among those faces will make their presence known. The names 
and faces lie in the zone to our right, which for the most part 
will always be just beyond the horizon. 

To our inside right are those who believe, "the micro is for me". 
They've decided that a micro would be a fabulous pastime, a 
challenge, and a chance to learn something which just might 
have alterior benefits one day. They may not know quite yet 
which brand to buy, but they will. And when they buy, it won't 
be long until many are among us. They may not buy Commo- 
dore, but nonetheless they will want to advance and meet 
others who enjoy the same stimulus. 

Shortly beyond here lies the average. Parents advocate micro- 
computing, if not for themselves, at least for their children. You 
have to admit it s truly heartwarming to watch the young enjoy 
learning, especially knowledge to be proud of. (You) kids soak 



up this kind of stuff like a sponge, exploring far more advanced 
material far sooner than we ever did. And since there will 
always be children who will always become new enthusiasts, 
there will always be a need for another micro out there 
somewhere. 

But the most fascinating sector of this surface must be the far 
right. I'd like to point out that the scenarios described previ- 
ously have all been formulated from personal experience, as is 
the next- So many times I've talked with friends and acquaint- 
ances who are firmly convinced that the wave is still peaking, 
that micro proliferation is still on full charge! "Oh ya. that's 
really taking off right now, isn't it?", is a common response. Of 
course, LDe know the emphasis has faded. But what about this 
sector. Is this the untapped market? Untapped or not, it's out 
there - the proof is in the pudding! 

Which brings about item two. Perhaps there is a market waiting 
to be tapped. What and who will unlock it remains to be seen, 
emphasis on ''What", Because let's face it. . . new micros are 
coming, the Atari, the 128, the Amega, but they are not really 
new. Combinations of features and unbelievable prices don't 
make new technology. The question that sums it up best for me 
is. "Which company's stock value will go through the ceiling 
next?" The product belonging to that company is the one I'm 
waiting for. It will probably have a central processor, but it will 
leave the CPU as we know it in the dust. 1 call this "the next 
wave". 

Then the far left will say, 'let's get in". The inside left will have 
their "something new to be part of". The inside right may very 
well discard their indecision in favour of riding the wave. The 
average will finally have an alternative. The far right will 
complete the picture as Company X sweeps the continents with 
the latest "gotta have one" sensation, and me'II be in the 
middle, or even out in front! 

In short, a new zone will emerge, one equally as big as us, and 
the cycle repeats. I don't profess to know when, where, how, or 
especially what. But I do know I wanna be there, I think we all 
do. Let's be ready. 



There is nothing as constant as change 




Karl J.H- Hildon, Managing Editor, I remain. 
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Using "VERIFIZER" 



The Transactor's Foolproof Program Entry Method 



VERIFIZER should be run before typing in any long program from 
the pages of The Transactor, it will let you check your work line by 
line as you enter the program, and catch frustrating typing errors. 
The VERIFIZER concept works by displaying a two-letter code for 
each program line which you can check against the corresponding 

code in :hc program listing. 

There are two versions of VERIFIZER on this page; one is for the 
PET, the other for the VIC or 64. Enter the applicable program and 
RUNit-lfyougetthemessage. "•■"•• data error ••***", re-check 

the program and keep trying until all goes well. You should SAVE 
the program, since you'll want to use it every time you enter one of 
our programs. Once you've RUN the loader, remember to enter 
NEW to purge BASIC text space. Then turn VERIFIZER on with: 



SYS 828 to enable the C64/VIC version (turn it off with SYS 831 
or SYS 634 to enable the PET version (turn it off with SYS 637) 



Once VERIFIZER js on, every time you press RETURN on a 
program line a two-letter report code will appear on the top left of 
the screen in reverse field. Note that these letters are in uppercase 
and will appear as graphics characters unless you are in upper/ 
lowercase mode (press shift/Commodore on C64/VIC), 

Note: If a report code is missing it means weVe editted that line at 
the last minute which changes the report code. However, this will 

only happen occasionally and only on REM statements. 



With VERIFIZER on. jus* enter the program from the magazine 
normally, checking each report code after you press RETURN on a 
line. If the code doesn't match up with the letters printed in the box 
beside the listing, you can re-check and correct the line, then try 
again. If you wish, you can EJST a range of lines, then type 
RETURN over each in succession while checking the report codes 
as they appear. Once the program has been properly entered, be 
sure to turn VERIFIZER off with the SYS indicated above before 
you do anything else. 

VERIFIZER will catch transposition errors (eg. POKE 52381,0 
instead of POKE 53281 ,0), but ignores spaces, so you may add or 
omit spaces from the listed program at will (providing you don't 
split up keywords!)- Standard keyword abbreviations (like nE 
instead of next) will not affect the VERIFIZER report code. 

Technical info: VERIFIZER resides in the cassette buffer, so if 
you're using a dataseltc be aware that tape operations can be 
dangerous to its health. As far as compatibility with other utilities 
goes, VERIFIZER shouldn't cause any problems since it works 
through the BASIC warm-start link and jumps to the original 
destination of the link after it's finished. WheEi disabled, it restores 
the link to its original contents. 



KE 

JF 

LI 

BE 

OH 

GK 

FH 

KP 

AF 

IN 

EC 

EP 

OC 

fvIN 

DM 
CA 
NG 
OK 
AN 
GH 
JC 
EP 
fvlH 
BH 



«*** 



Listing la: VERIFIZER for C64 and VIC-20 



lOrem'dataloaderfor " verif izer " * 
15 rem viC/6 4 version 

20cs = 

30 for i = 828 to 958:read a:poke i,a 

40cs = cs + a.nexti 

50: 

60 it csOl 4755 then prtnt "-***- data error " 

70remsys82e 
80 end 
100: 

1000 data 76, 74. 
1010data252. 141, 
1020 data 3,240, 
1030 data 251, 169, 
1040 data 3, 3, 
1050 data 0,160, 
1060 data 32,240, 



Listing 1 b: PET/CBM VERIFIZER (BASIC 2.0 or 4.0) 



: end 



2. 

3, 
2. 



3,165,251,141, 
3. 3, 96,173. 

17,133,252,173, 

99, 141, 2, 3, 169. 

96,173,254, 1, 133, 
0.189, 0, 2,240, 

15, 133, 91,200, 152, 
1070 data 133, 90, 32,183, 3.198, 90, 
1080 data 232, 208.229, 56, 32,240,255, 
1090data 32,210,255,169, 18, 32,210, 
nOOdata 89, 41, 15. 24,105, 97, 32, 
11 10 data 165, 89, 74, 74, 74, 74, 24, 
1120data 32,210,255,169,146. 32,210, 
1130data 32,240,255,108,251, 0,165, 
1140 data 101, 89, 133, 89, 96 



3,165 

3.201 

3, 133 

3, 141 

89, 162 

22,201 

41, 3 

16,249 

169, 19 

255, 165 

210,255 

105, 97 

255, 24 

91, 24 



CI 

CF 

LI 

HC 

DH 

GK 

OG 

JO 

AF 

IN 

ON 

IB 

CK 

EB 

HE 

01 

JB 

PA 

HE 

EL 

LA 

Kl 

EB 

DM 



10 rem* data loader for " veriftzer4 0" " 

15 rem pet version 

20cs = 

30tori = 634to754:reada:pokei,a 

40cs = cs + a:nexti 

50: 

60 ifcs<>15580 then print"' — ** data error * 

70 rem sys 634 
80 end 
100 . 

1000 data 76,138, 2,120,173,163, 2, 
1010data173, 164, 2,133,145, 88, 96, 
1020 data 145, 201, 2,240, 16,141,164, 
1030data 144, 141, 163, 2, 169, 165, 133, 
1040data 2,133,145, 88, 96, 85,228, 
1050data201, 13,208, 62,165,167,208, 
1060data254, 1, 133, 251, 162, 0, 134, 
1070 data 0, 2,168,201, 32,240, 15, 
1080 data 165. 253, 41, 3.133,254, 32, 
1090 data 198, 254, 16, 249, 232, 152, 208, 
1100data251, 41, 15, 24,105,193.141, 
1110datal65,251, 74, 74, 74, 74, 24, 
1120 data 141, 1,128,108,163, 2,152, 
1130data251, 133,251, 96 



4» V t 



. end 



133,144 
120, 165 

2,165 
144, 169 
165,217 
58, 1 73 
253, 189 
230, 253 
236. 2 
229, 165 

0, 128 

105, 193 

24,101 
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Bits and Pieces 



Got an interesting programming tip. short routine, or an un- 
known bit of Commodore trivia? Send it in - // we use it in the 
Bits (S Pieces column, we 11 credit you in the column and send 
you a free one-year's subscription to The Transactor 



A Bunch of Disk Stuff. . . 



Disk Cleaner 



Peter Boisvert, Amherst MA 



/ clean my disk drive read/write head using a diskette-like 
insert containing a woven cloth disk impregnated with cleaning 
solution. To clean the head you must insert the diskette and 
close the door Now the instructions say to "run the disk drive 
for 45-60 seconds " by sending any disk command to the drive. 
I used to use the initialize command. Unfortunately, the disk 
turns for only 4 seconds or so before it ''knocks" the head and 
stops. To clean the disk properly requires repeating the disk 
command J to 1 2 times. That's an awful tot of knocking. Since 
too much knocking can precipitate head alignment problems, I 
was detertnined to find a better way. To my surprise the 
solution was very simple, provided you have a disk map of the 
ROM: 



Using Peler's technique, here's another 1541 motor spin pro- 
gram that will make it turn whenever the shift key is pressed. 
You can use SHIFT LOCK to keep the motor running if you 
wish. This one is handy when working on the drive. 

10 rem* 1541 motor spin routine #2 * 

20 print chr$(1 47) ^ hold SHIFT to spin drive motor " 

30 print " press CTRL to quit program " 

40 open 15,8,15 

50fQri = 0to1 

60 sO = s1 :s1 = (peek{653) = 1 ) , 

70ifs1 and not(sO) then 

print#1 5, " m-e " chr${1 26)chr$(249): rem motor on 
80if not(s1)andsOthen 

print#15, " m-e " chr${232)chr$(249): rem motor off 
90 i = -(peek(653) = 4): next: rem until Ctrl pressed 
100 close 15 



10 rem* 1541 motor spin routine * 
20 open 15.8,15 

30 rem execute ml at $f97e to start motor 
40prinl#15,"m-e"chir$(126}cfir$(249) 
50fori = 1 to6000:next: rem time delay 
60 rem execute ml at $f9e8 to stop motor 
70 print#1 5, " m-e " ctir${232)chr${249) 
80 close 1 5 

This short BASIC program executes two disk ROM routines 
directly, bypasssing the 1541 error checking protocol and 
avoiding the dreaded '^knock". Location $F^7E in disk ROM is 
the start of a routine which simply turns the drive motor on. 
nothing else. Similarly at location $F9ES a routine exists which 
shuts off the drive motor. Thus all that is needed is a short 
program to execute the routines and a delay loop for the 
cleaning time. When the program is RUN the drive motor turns 
but the drive LED doesn^t light. Ahh, the wonders of direct 
access programming.' The motor will run for a minute and then 
stop, leaving a shiny disk in its wake. But, make sure the disk 
drive door is closed when the cleaning diskette is inserted, 
otherwise the head will not make good contact with the clean- 
ing surface. 



The 154 Ts amazing ' * " 

On the 1541, the special filename " * " can be used to load the 
most recently used file, or if no disk access has yet taken place, 
the first file on the disk. On other Commodore drives. '•" 
always loads the hrst file. If you want the 1541 to behave as the 
ofher drives, i.e. you want to load the first program on disk, just 
use the filename " :' " instead of " * \ for example: 

LOAD ":^\B 



World's Simplest Un-Scratch 



The * filename on the 1541 will let you LOAD the last 
program SAVEd, even if it has been previously scratched! You 
probably won't believe it so try it for yourself: 

SAVE the current program in memory: SAVE-QiTEMP" ,8 
SCRATCH it from the disk: OPEN 1 ,8, 1 5, " SO:TEMP " 
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You may check the directory at this point to make sure it has 
been scratched. 

NEW the program in memory or even reset the C64 with SYS 
64738 (donH turn it off and on. as this will also reset the 1541). 

LOAD " * \8 and your scratched program is back. Now you can 
safely save it again, 

TheabovelechniquewillnoJ work ifyouVe used any file since 
the scratched one. or if the drive has been reset. But it's great 
for those limes when you realize you need a file right after you 
scratch it! 

C-64 Directory LOAD & RUNBob Davis, Salina, Kansas 

The 8032 series have the cQpnbiUty of using shifted RUN/STOP 
to load and run tlie first program on disk. . . but the 64 can go 
one better. 

When you save a program, foliow the program name with the 
following four characters ■ 

1) A shifted space 

2) Commodore D (The Commodore key and 
letter 'D' simultaneously) 

3) Commodore U 

4) Shifted'®' 

This will force the disk directory to contain the file name in 
quotes, followed by " ,8. " and all you do is display the direc- 
tory, move the cursor to the appropriate line and press shifted 
RUN/STOPto load AND run your program. 

While surely someone else has noticed this before, the trick is 
new to me, and I have not seen it published. 



Jumbo Relative Files Elizabeth Deal, Malvern, PA 

The 81 28 and the MPS-80 Drive can write large (500k) relative 
files without a "file too large" error An old manual (circa 1982) 
has this incantation for the 8250. which just fiappens to work 
on the DOS 2.7 MPS drives: 

open 1,8,15 

xx = 0:print#3/m-w"chr$(164)chr$(67)chr$(1)chr$(x) 

close 1 

Reset, UJ or the above program with xx=255 turns the large- 
file feature off 

The CBM 8050 lest/demo floppy has a program which ex^ 
ponds relative files to an 8250 format. It works only on PET 4. 
computers: I don't have one. I find it mildly amusing that the 
8050 test/demo wasn ! fixed up to work on the B-mochine. 



APPENDing ML to BASIC 

A hybrid program - one using both machine language and 
BASIC - often consists of a single file on disk containing a 
BASIC program with machine code tacked onto the end. An 
easy way to create such a hie is to simply SAVE the BASIC part, 
then send the object from your assembler to the same filename 
with the '\A' (append) filename extension. For example, using 
the PAL assembler: 

100 open 1,8,12, " O:otdfile,p, a ":rem append to basic prg file 

110sys700 ;activate "PAL" assembler 
120 optol ;dfrect object to append tile 

(The PAL example is redundant, since that assembler has 
hybrid capability, but you can use any assembler, or a BASIC 
loader program using DATA statements to generate the ML 
object.) 

When Using this technique, the assembly origin will have to be 
set to the end of the BASIC program, which you can find by 
PEEKing the top-of-BASlC pointers ($2D,2E on VIC/64), and 
the new pointers will have to be set to the end of the ML object 
before you SAVE the BASIC (so that variables won't clobber the 
code). Also, remember that when using an assembler the hrst 
two bytes of the ML will be the start address, so you'll have to 
SYS two bytes past the start to execute the program. 



Another Use For ' ,A^ 

The filename extension for append (.a) can help out when 
you>e word processing. If you're creating a document and wish 
to maintain a table of contents, list of references, or any notes 
that come to mind, you can keep appending to a file by putting 
a ",s.a" or ",p,a" after the filename {depending on whether 
you're using SEQ or PRG hies). Just set a "range'' on the next 
note you wish to add to the hie, and save the range with the 
above extension. Bits and pieces uses this technique with 
Superscript to keep a list of B&P authors in a separate file. 



Creatintt DEL FUes 

A "DEL" file may be created as follows: 



Davtd Stevenson, 
Pilot Mound, Man< 



OPEN 2,8.2;" 0:TESTS,W" 
OPEN3,8,3/0:TESTS,W^ 
PRINT#2/ FIRST '■ 
PR1NT#3," SECOND" 
CLOSE 2: CLOSE 3 

The first file opened will become a DEL file. The DOS allows 
you to open more than one file with the same name as long as 
you haven't closed any and attempts to recover by giving a 
different file type designator If you try this with more than two 
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files all but the first two are lost. To make both files easily 


CC 


100open15,8,15 


accessible just rename, changing the first one in the directory. 


IK 


110open5,8,5/#" 




PP 


120print#15,"u1:"5i0;18;0 


This happens with SEQ, PRO or USR files (or a combination) on 


MO 


130prinl#15,"b-p:"5;x 


my 1541. 1 haoen 'f seen mention of this anywhere. 


MN 


1 40 for i = X to y 




LJ 


150pfint#5,chr$(0}; 


Neither have we. It seems to work with the 8050 as well. 


EK 


1 60 next 




FD 


170pnnl#15,"u2;"5;0;18;0 




M 


ISOprntflB/'u;" 


Read Blocks Free Directly 


GC 


190cose5: cose 15 




JO 


200 print " va idate deprolects " 


This will et you directly read the number of blocks free on the 




current disk without any disk access (the disk must have been 




previously used in some way). 


Scratch & Save Bob Hayes, Winnipeg, Man. 


5 rem* read bocks ree-1541 


Unlike SAVE with "@:", this program actually scratches your 


6: 


old file before saving the new one. I initially wrote it as an 


1 lo = 250: hi = 2: rem $02fa-$02fd 


additional command to the TransBASIC language. Once the 


20z$ = chf$(0) 


program is in memory, type this: 


30 open 15,8,15 




40 print#l 5. " m-r " chr$( o)chr$(hi)chr$(4) 


SYS<start address> " ti ename " 


50get#15J0$,l1$,h0$,h1$ 




60 to = asc( 0$ + z$) + 256'asc(h0$ + z$) 


Notice there is no ",8"needed. 


70 prnt^' blocks free/ fO 




80 cose 15 


Below are BASIC loader and PAL source listings of "Scratch & 




Save". The slarl address of ttiese listings is SCOOO (49152), but 


For the 8050 or 8250, make these changes (sorry, no 4040/ 


the program is fully relocatab e. If you're using a dua drive, 


2040 version): 


you'l have to remove lines 350 and 360 from the source code, 




and 5peci[y the drive number in the filename whenever you 


10fo-157:hi-67:rem$439d $43a0 


call "Scratch & Save". 


90 f1 =asc{1$ + 2$) + 256*asc{h1$ + z$) 




1 00 print "bocks free -0. "to", l:"n 






PO 


10 rem* data oaderfor " scratch & save" • 




LI 


20cs = 


1541 Track Protect John R. Menke, Mt. Vernon, IL 


LF 


30 for =49152to49252:reada:pokei,a 




DH 


40cs = cs + a:next i 


It's sometimes usefu to be able to reserve certain tracks for 


GK 


50: 


ater use, or prevent programs and fi es from being saved to a 


OC 


60 if csOl 4558 then print " • data error " : end 


disk or certain tracks. Here's a short, quick 1541 utility which 


MB 


70 rem sys 491 52 "fi ename" 


save-protects an entire disk or designated tracks. It works by 


AF 


80 end 


writing zeros to the BAM (Bock Availabi ity Map), thereby 


N 


100: 


misinforming the DOS that those tracks have already been 


CB 


1000 data 32,158,173, 32,163,182,134.251 


used and are unavailable. 


BF 


1010 data 132, 252, 72,162, 0,189, 90,192 




EC 


1020data 32,210,255,232,224, 11,208,245 


Conveniently, the BAM is restored and the save-pro tect ion 


MB 


1030 data 169, 8, 32.177,255,169,111, 32 


removed simply by validating the disk. 


PG 


1040data147, 255, 169, 83, 32,168.255,169 


1 1 


AC 


1050 data 58, 32,168,255,104,170,160, 




ON 


10 print "save-proteci" 


GH 


1060data177,251, 32,168,255, 32,210,255 




EN 


20 prinr(d) entredisk 


MA 


1070data200, 202, 208, 244, 132,253, 32, 174 




N 


30 print "(t) a track 


KF 


1080 data 255, 165,253, 166,251, 164,252, 32 




MO 


40geta$:ifa$=''"then40 


00 


1090data189, 255, 169, 8,168,170, 32,186 




FH 


50 if a$ = ' d " then x = 4:y - 1 43: goto 1 00 


HL 


1100 data 255, 169, 43,166, 45,164, 46, 76 




MD 


eOifaSO't" then 40 


GN 


1110 data 216, 255, 83, 67, 82, 65, 84, 67 




FE 


70 input " track number " ;t 


HK 


1120data 72, 73, 78, 71, 32 




BB 


80itt<1 or t>35 then end 






CM 


90x-t'4:y-x + 3 
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C-64 POP 



1 
FD 


1 00 sys700 






HC 


110:' 


scratch and save 




LP 


120; 


bob hayes 


;; Winnipeg, manitoba 


N! 


130; 


routine help from brian munshaw's 


AC 


140; 


" new error wedge 


n 


OP 


1 50 . opt 00 






MA 


160 write = 


* 




KB 


170 


jsr 


$ad9e 




KA 

1 


180 


jsr 


$b6a3 




GD 


190 


six 


$fb 




HE 


200 


sty 


$fG 




OE 


210 


pha 






DC 


220 


dx 


#0 




FF 


230 mioop = 


* 




GD 


240 


Ida 


smsg.x 




DJ 


250 


jsr 


$[fd2 




AO 


260 


nx 






MP 


270 


cpx 


#11 




P 


280 


bne 


mloop 




NB 


290 


da 


#8 




FG 


300 


jsr 


Stfbl 


; isten 


DM 


310 


da 


#$6f 







320 


jsr 


$ff93 


;send secondary 


KJ 


330 


ida 


#"s" 




PD 


340 


jsr 


SffaS 


;ciout 


DG 


350 


da 


#■';'■ 




DF 


360 


jsr 


$fta8 


icout 


KP 


370 


pa 






HE 


380 


tax 






BN 


390 


Idy 


#0 




LA 


400 s oop = 


• 




IN 


410 


Ida 


($fb).y 




PI 


420 


jsr 


$ffa8 


;ciout 


HE 


430 


jsr 


$ffd2 




J 


440 


iny 






JH 


450 


dex 






CL 


460 


bne 


soop 




F 


470 


sty 


$fd 




JA 


480 


jsr 


Sffae 


;unlsn 


OM 


490 


da 


$fd 




DC 


500 


dx 


$fb 




PD 


510 


Idy 


$tc 




AB 


515 


jsr 


Sffbd 


.setnam 


DA 


520 


Ida 


m 




BO 


530 


tay 






HO 


540 


tax 






NO 


550 


jsr 


Sffba 


;setfs(open8,8, 


BK 


560 


Ida 


#$2b 




CF 


570 


dx 


$2d 




DG 


580 


Idy 


$2e 




PJ 


590 


mp 


$ffd8 


;save$2b,2cto 


JJ 


600 smsg ,asc 


; "scratching " 



Sometimes you need lo clean up the stack and re-start a 
program without killing variables, for example when you need 
to get back to the main menu from a deeply nested subroutine 
after an error condition occurs. The POP routine that works on 
the PET doesn't do the trick for the 64, but you can use this 
irick instead: just LOAD the program from within itself. That 
will cause an automatic re-run, cleaning the stack of subrou- 
tine return addresses and for., next loops, but leaving variables 
intact- 



Computer Stuff. . . 

C64/VIC20 PRINT AT Command M. Van Bodegom, 

St. Albert, Alt>erta 

On many computers you can move the cursor to any spot on the 
screen with a simple command For example. TAB(8,8) or 
PRINT AT(8.8); would allow you to print starting at row 8, 
column 8. Commodore doesn If have a BASIC command for this 
so most programmers PRINT down to the line and then use 
TAB(column). There is an easy way to gel the cursor directly to 
any spot on the screen. The KERNEL has a routine that does 
just what we want. Simply use this line to set the cursor location: 

POKE 781, row: POKE 782, column: 
SYS 65520: PRINT' message" 



Menu Select 



Tim Buist, Grand Rapids, Ml 



.x,.y 



There have been many menu selection programs, but this is 
one of the nicest to use, and il^s fairly short! Just put the 
selections in the array A${)\ the number of choices (up to ! 1) in 
^N\ then call this subroutine. It will display the options centred 
on the screen and highlight the first one. You can use the cursor 
up/down keys to highlight any option, and confirm the selec- 
tion by pressing RETURN, 

The subroutine returns with the chosen selection number in 
the variable T. You can then branch the the appropriate section 
of your main program with ON I GOTO or ON 1 GOSUB. With 
the few additions given below, you can select using either the 
joystick or the keyboard. 

100 rem* menu subroutine * 
110cd$-chr$(17):cu$ = chr${145) 

n5hi$="n":off$=''|H" 

116 rem use reverse-on and reverse-off tor above, 

1 1 7 rem any two colours, or a combination, 

120aa = (25-n*2)/2: printcfir$(147) 

130 fori = 1 toaa: print: next 

140fort = 1tQn:printtab(20-len(a$(i))/2);off$;a$(i): 

print: next 
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150pnntchr$(19) 


The first one, Waving Spokes, was originally designed to run 


1 60 fori = 1 to aa: print: next: i = " 


on a Radio Shack p ofter. You'! understand its title when you 


170 printtab 20- en(a${i))/2);hi$;a$(i) 


run it a few times. You can get vasty different patterns by 


1 75 get a$ 


supplying different parameters on start-up. Some recommen-^ 


1 80 if aSOcdS and a$<>cu$ and a$<>chr$(1 3) then 1 75 


dations; 20.6,20; 50^10; 30.6.60; 40,20.10; 20.4.100 


1 90 If a$ = chr$(1 3) then return 




200printcu$itab(20-ien(a${i))/2);oft$;a$(l) 


After a pattern is comp ete. you can press F6 (RUN) to generate 


210 if a$ = cd$ then print: i = i + 1: if >nthen 150 


a new one. 


220 it a$ = cu$ then print cu$cu$cu$;: i = i-1: ifi<Hhen150 




230 goto 170 


1 rem " waving spokes - plus/4 




2 rem " adapted from Bi and Lee Harding's 


Notes: 


3 rem " program in Computek Magazine 


1) Line 115 is set up to high ight the selected option with 


4: 


reverse field. If you wish, use colours for ^HI$" and 'OFF$\ 


lOgraphicOJ 


or CO ours combined with reverse on and reverse off (see 


20 input " no. of spokes, no, of waves, amplitude 


comments in program). 


of waves ■';spok,waves,amp 


2) To allow use of the joystick as wel as the keyboard (up/ 


30 graphic 1,1 


down and fire to select), add the following lines: 


35p = 360/spok 




40 for angle = to 360-p step p 


1 76 j = peek{56320): rem 56321 for joystick port #1 


50 locate 160,100 


177 it -111 thena$-"Chr$(13) 


60 fori^^OtolGO steps 


178 if = 1 25 then a$ = cd$ 


70 d = amp*sin(i* waves*. 01 745) 


179 ifj-126 then a$-cu$ 


80 X = i*cos((ang e -f d)*.01 745) 




90 y = i*sin({angle -t- d)*.01 745) 




100drawto160 + x,100 + y 


LIST Freeze Yijun Ding, Pittsburgh, PA 


10 next 1. angle 


Here's a real convenience uti ity. It lets you temporarily halt a 




program listing in progress to examine a section of code. Saves 


Tfiis next dazz er - Kaleidoscope - was originaJiy written for 


having lu BREAK and re- ist al the time! Once activated, this 


an Atari machine. It's uncomp icated and easy to modify, but 


21-byte machine language demon wil ive unobtrusively in 


produces a constant y changing intricate pattern — certainly 


yourC-64 unti you ho d the SHIFT, CTRL, or Commodore key 


worth a try. 


during a LIST fo "freeze'' the action. Just RUN the program 




be ow to set it up. 






1 rem" kaeidoscope - pus/4 


lOrern+data oaderfor istfreeze * 


2 rem " Adapted from kaleidoscope by 


20 cs = 


3 rem " Rafael Soriano 


30fori-49152to49172:reada:pokeJ,a 


4 rern in Apri '85 Atari Explorer 


40 cs=^cs-+-a:next i 


5: 


50; 


50 xm = 1 59:ym = 1 99:mc = 1 


60 it CSO2031 then print ^ Idata error! " : end 


60 graphic 3,1 .color 0.1 :co Qr4,1 : 


65sys49152 


colorl ,8:co or2,2:co or3.4 


70 print " ffllist freeze activated. 


65 do 


80 print" Hpressctr , sh ft or commodore keys 


70 for b = 1 to xm 


to hat program jstings. 


80 rnc = mc + 1:if mc>3 thenmc = 1 


90 end 


90drawmc,b,ctoxm-b,c 


100: 


■ 00 drawmc,b,ctoxm-b,ym-c 


1000datal69, 11,141, 6. 3.169,192,141 


11 draw mc,b,ym-c to xm-b.ym-c 


lOIOdata 7, 3, 96, 8J74J41, 2,208 


■ 20 draw mc,b,ym-c to xm-b,c 


1020data251, 40, 76, 26,167 


1 30 c = c -t- 6;ifc>yrnthenc = 




140 next b:coor3,4,i 




150i = (i4-1)and7 


A Couple of Plus/4 Goodies 


160 loop 


Here are two pattern drawing programs that we borrowed from 




other magazines and adapted to the plus/4. 
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BASIC Programming Tip - Simulated IF..THEN.,EL5E 

Here is a way you can put a statement on the same line as an 
IF. . GOTO and have it execute if the branch /sn? taken: 

ON -(condition) GOTO 1000: slatement{s) 

This is equivalent to 

IF (condition) THEN 1000: ELSE statement{s) 



While looking like it does nothing, it actually rotates a bit into 
RESULT Since a CMP. . . BEQ will sett the carry bit. at ONE the 
cany bit will be ROLed into RESULT. If the CMP *'(?' succeeds, 
the carry bit is cleared and a zero inserted into RESULT These 
Sure are fun to write! 

Here 's another simple but fun subroutine that converts an 8-bit 
binary number to ASCII binary and prints it. While this is again 
a not-so-complicated-that-!-couldnt-think-of-it subroutine, 
it might spark someone Just getting started in M.L 



Since the C-64 and PET don't have an ELSE, the above trick 
can come in handy. 

See why it works? By negating the condition, we gel ON 1 or 
ON 0, which jumps to the given line if the condition is true, or 
"fails through'' to the next statement if not. A bit tricky, but 
easier to follow than a rat's nest of GOTOs. 



ML Binary/ASCII Conversion Routines Tim Buist, 

Grand Rapids, MI 

This first routine is easy to use: just place the binary number 
you wish to convert after the SYS, for example; 

SYS 49152, 110010 

The 16-bit result will be in RESULT and RESULT+1, which are 
828 and 829 in the listing below. 



100 sys700;pal64 






101 ;this program converts a byte 


102 ;to its ascii binary equivalent 


103 ;and prints it. 






105 ; 








110 opt 00 








120 number 


^ 


828 


;resu twill go here 


130 


dx 


#7 


;8 bits 


140 loop 


^ 


* 




150 


da 


#"0" 




160 


as 


number 


iget a bit from number 


170 


adc 


#0 


;add in carry 


180 


jsr 


$ffd2 


;prnt it 


190 


dex 




; next bit 


200 


bp 


oop 


;a 8 bits done"? 


210 


rts 






Lett'er Flyl 









100 

101 

102 

103 

104 

105 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 



sys700;pai 64 assembler 
;this program converts an ascii 
;binary number to actual binary 
;form and stores it in " RESULT " 
;it works on anything up to 1 6 bits 



.opt 00 
result 



loop 



zero 



one 



Ida 
sta 
sta 

jsr 

cmp 

beq 

cmp 

beq 

rts 

cic 

rol 
rol 
jmp 



828 

#0 

result 

result +1 

* 

$0073 

#"0" 

zero 

#'■1 

one 



•t J ■» 



* 

result 
result + 1 
loop 



;clear it first! 

;lsb 

imsb 

;chrget 



;return if not or 1 



;put in carry bit 
;get more digits 



Try this: 

10s1$ = chr$(19) + chr$(17) + chr$(157) 
: s2$ = chr$(1 9) + chr$(29) + chr$(20) 
20 get a$ 
30 print si $a$s2$: goto 20 

Press a few letter keys and watch. We know, neat but totally 
useless, right? Well, modify line 20 like this: 

20geta$:ifa$="' then 20 

Now try it. You might have a use for an input routine like that in 
one of your programs. 
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Letters 



Just Love Those Transactor Disks: As you remarked in 
your comment at the end of David W. Tamkin's letter published 
in Ihe July 1985 issue, whether to get the programs from 
Transactor already on disk saved or to type them in for yourself 
from the listings given in the magazine is reader's choice. 

What IWr. Tamkin obviously does not realize is that there are 
many reasons why a reader either may not be able to type them 
in - or even why it may be impossible for him to type them in 
correctly! 

Victims of dyslexia are far more common than perhaps people 
realize. The commonest form of this reading problem is the 
reversal of the ORDER in which the reader sees a small set of 
letters or digits. He does NOT see the mirror images of these 
characters - it is only their order that gets reversed. The use of 
checksums does not help such people, for changes in the order 
in which characters are typed does NOT cause a checksum 
error. 

Also there are many types of disabilities affecting the use of 
their hands. For many, typing in long programs is exhausting 
and so very difficult because exhaustion increases the already 
high error rate due to the disability the typist has. 

There can be other reasons why it is undesirable or impossible 
for a reader to find the time to put in the hours required lo type 
in these programs and then debugging them. 

Being a dyslexia victim, 1 have had to ask authors of programs 
what Ihey would charge me to copy their programs upon a disk 
which 1 would provide - just to get a very few of the programs 
which were not sold be dealers or software hrms that I needed 
to use. Having had one arm totally paralyzed - though I was 
one of the fortunate few who in time recovered full use of that 
arm - I know how impossible it would have been for me to type 
in any long program while that paralysis was wrecking even 
hunt-and-peck typing for me. 

The publication or non-publication of disks of programs con- 
tained in an article is irrelevant to the level of expertise 
assumed for a magazine's readership or for its quality. Making 
such disks available does, however, show concern on the part 
of the editors and publishers for the problems some of their 
readers may have with respect to using the programs listed in 
their magazines, 

1 wish to congratulate and thank you, the publishers and 
editors of Transactor, for making the Transactor Disks available 
to your readers if they wish to order them. 

Mrs. Marge Paulie, Eugene, Oregon 

// may interest you to know that Mr. Tamkin called us shortly 
after his letter but before that issue hit the newstands. After 



apologizing for the letter (which, by the way, was unnecessary) 
he proceeded to order disks. To be quite honest, though, it 
hadn i occurred to us that our disks would benefit the disabled 
moreover others. Thank you for pointing that out to us. Making 
Transactors is a lot of work and a lot of fun, but tetters like yours 
help lip the balance that much more towards the latter Thank 
you again. 



Ad-vice: Hey, Transactor, you're missing the boat! You boast a 
print run every issue of 64,000 copies. Compute! boasts about 
600,000. You print about 75 pages every issue of terrific 
information for the Commodore enthusiast, Compute! has now 
dropped lo 96 pages, with a 50% advertising content- That 
means that a maximum of 48 pages contain actual usable info. 
To further water down the content, these 48 pages are divided 
up between Commodore, Atari, Apple, IBM, and Tl. When 
tallied up, a very small portion of each Compute! would be of 
use to most Commodore users. Now, Commodore users domi- 
nate the home computer arena. There are millions of them out 
there. It stands to reason that many of Computers readers are 
Commodore users, with many users buying both Compute! 
and Computels Gazette. Chances are that most of their readers 
have never even heard of The Transactor. 

There seems to be two ways in which to increase your sales 
figures. The first is to update your marketing strategy lo include 
advertisements in as many Commodore related magazines as 
possible. The second, and possibly the most effective, is to ask 

your readers to spread the word of The Transactor as far and 

wide as possible. It does not take a lot of grey matter to realize 
that the only way to make a virtual advertising free magazine 
pay off is to increase the subscriber base as much as possible. 
Magazine rack sales may sell a lot of magazines for you, but 
they also force you to reduce your prices to your distributors, 
give terms on payment, and allow a return policy for unsold 
magazines. Subscription sales, due to the fact that payment is 
immediate, in advance, and in full, is where the profits are. The 
only major expense to you is mailing out the magazine every 
issue. Boost your subscriber base, and you will be on easy 
street. 

One more bit of advice before I sign off. Advertising. Why not 
bring it back again. Ads are only offensive when they are 
splattered everywhere, as most magazines do, 1 like lo read ads, 
but not while I am reading an article. Your concept of placing 
the ads in the back, and once in a while at the very front, is 
terrific. It's not offensive, and encourages me to read them at 
my own leisure. Your sales figures are up since you dropped 
your ads, so why not re-introduce them once again. An 
increase in your ad content could possibly be the key to a 
greater Transactor future. 

John Brunner, Chicago, Illinois 



Th# Tranfoctor 



n 



^Ml■n•6,lulMO^ 



You either have ESP or you've been eavesdropping on our 
headquarters via long distance. We hove been trying to dream 
up ways to increase our subscriber base since day one. To date 
we've been fairly successful, with a base right now of about 
10.000. 

At present tfiere are Transactor ads in some of the Commodore 
related mags but some will not accept ads from wfiat they deem 
"competitors''. Also, we have been getting a lot of support from 
quite a few of the users groups everywhere, with mentions in 
their newsletters, and messages mysteriously appearing on 
BBS's all over. This hasn 't hurt our sales one bit. But we would 
always appreciate anyone passing the word. Increase our sales 
figures and you will earn our affection forever. 

About bringing advertising bad?. We hove debated it, and have 
decided to bring them back, in limited quantity. We still want to 
try to keep the magazine 90% ad hee. We will offer a total of 
seven, full page ads to run, laid out in the magazine as would a 
second cover on the inside. Hopefully, our readers will enjoy the 
ads as much as you seem to. 

Thanks for the terrific advice, and we hope that if any more 
helpful thoughts pop up, you will drop us a letter. 



A Few Notes On DOS: Congratulations on "Learning The 
Language Of DOS^^ in Vol. 5. No. 5, which I found interesting 
and usefuL With your tips [ quickly converted my custom, 
homebrew disassembler to work with the i541 RAM/ROM. i 
look forward to more 1541 memory maps, but encourage that 
the tabular size be made larger than on page 51 of the above 
issue to spare my eyesight. 

It isn't quite sufficient to say that "B-K\ ''B-W", "B-A", and 
"B-P' are tainted, and 1 hope that you will mention why; 1 have 
had no problems with ''B-W'\ But, indeed, "B-R" doesn't seem 
lo pay attention to the Buffer- Pointer and simply reads the first 
few bytes of a block then stops. In agreement with your 
experience, I have noted no other problems with '*B-P". I 
haven't had enough experience with "'B-A" or "B-F" lo make a 
judgement yet. 'W and "UJ" seem to work OK, but 1 haven't 
tried the alternate syntax for the other user commands. It's easy 
enough lo accept your advice to use the standard syntax here, if 
you will be a bit more specific about the reasons. 

Let me mention a caution with relative hies. If a relative file is 
left open, inadvertently such as during program development, 
the 1 541 DOS crashes! 1 lost a good disk that way. Initialization 
{@1) of the drive doesn't fix things and subsequent disk opera- 
tions will damage other disk files. In this case, a save with 
replacement leaves the disk directory looking like scrambled 
eggs; you can't even format a new disk. The cure is a reset with 
"UJ'' or by turning the disk drive off and on. 

I have yet figured out how to write lo a relative Hie in emulation 
of the '■U2" command. So far as 1 can determine, an entire 
relative file record must be read into computer memory, up- 



dated there, then all fields of the record must be rewritten to 
disk. It would be faster and generally more useful if there were 
away to emulate the "U I" then "U2" sequence, normally used 
with random hies, with relative files. I suspect that there may 
be an easy way to do so, but I haven't yet stumbled across it 
after a lot of syntax and command experiments. The only thing 
I've come up with is to access and interpret a side sector to get 
the track and sector of a record number; then random file 
commands are handy enough if the record length happens to 
be exactly 254 or 1 27 bytes. 

I note that when a relative file record is accessed, apparently 
the 1541 DOS reads two disk sectors into disk RAM. This 
observation might be useful now that you have kindly pub- 
lished the addresses of the RAM buffers! I haven't yet checked 
to see which two buffers are involved. Thus, relative hie 
records of 127, 254, 381, or 508 bytes in effective length can 
probably be efficiently constructed with the 1541 relative file 
system- 

I note that ^Single Disk Copy Program' by Rick files, on pages 
13-14 of Vol. 5. No, 5, doesn't work on my Commodore 64. 
There^s a typo in program line 130 : PEEK(46) should be 
PEEK(56). I can't say whether anything else is wrong because I 
reworked thing extensively from this point on, 

John Menke, Mt. Vernon. Illinois 

7b begin, tfianks for the voice of approval regarding my article. 
It took a while to write, but from the sounds of things since then, 
many people hove enjoyed it To be a bit more specific, "B-W" 
has been blamed in the past for clogging up the error channel in 
use. The syntax of a reset. "UJ". ^V:'\ or "U;". seems to vary 
depending on the ROM revision you have with your 1541. You 
will know what doesn 't work for you when your drive hangs up 
through its use. "B-A "and ''B-F' again are dependent on ROM 
revision. Older ROM's seem to have the problem of them not 
working in general. It seems that Commodore has always had 
some difficulties with these two. One piece of advice, liftedright 
out of Commodore Magazine of February 1982, is to conven all 
numerals into strings and concatenate them into the command 
string before issuing the command. Most people write their own 
Block-Allocate and Block-Free routines to synthesize the proc- 
ess in computer RAM. This technique is my favourite because 
you are always sure that it took. 

Sorry for the type size, but it was the only way to fit it on the 
page. That map was realty there to give you a taste for our 
'Complete Commodore Inner Space Anthology', to incite you to 
dash out and buy it. Inside this oddly named hook we hove 
placed the ROM/RAM maps plus definitions for the 1541, 4040, 

and 8050 drives. Interested yet? 

Thanks for the advice regarding relative files, and their crashes 
thereafter. I really didn't know that this problem existed. Lets 
hope that some brilliant disk doctor out there takes your hints 
and comes up with a synthetic relative file maker just for you. 

Might be a neat application. 
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A Bit More DOS Advice: I'd like to comment on some of the 
statements in "Learning The Language Of DOS", by Richard 
Evers in the March '85 issue, and make some corrections to the 
1541 User^s Manual'. 

My first argument is with the statement on page 48 of the article 
that claims that Block Commands (Block-Allocate, Free, Read, 
and Write) are "terminally ill". Perhaps there were some 
problems with the original 1540 ROM's, However, all of the 
commands do work flawlessly, I have written, used, and 
distributed several programs that rely on these comoiands, and 
they have never made any mistakes. 1 feel a major reason for 
the confusion with these commands is the User's Manual. On 
page 29. the format for Block-Allocate is shown: 
PRINT*'file*;'B-ArdrJve,track.block. Only the hrst comma is 
correct, the rest should be semi-colons. That is, 
PRlNT*file*',^^B-A:"drive;track;block. All other Block com- 
mands are listed incorrectly as well. The correct usage is shown 
on page 41 of the manual, and in the article. Also, it is not 
necessary to close the command channel after using any 
command, IF you use them correctly. Overall I found this 
timely article to be both informative and useful. I appreciate the 
technical aspects of your magazine, and 1 hope it remains that 
way. 

The manual included with the 1541 drive has enough bugs to 
keep the experts guessing until the technology becomes 
tech no- obsolete. Few of the tutorial program work as written. 
An almost ridiculous error on page 8 is a good example of the 
writer's carelessness. It reads, "never remove the diskette 
when the green drive light is ou\ Of course, they meant red, 
didn't they? On page 4, Commodores manual claims the 1541 
is write compatible with both the 4040 and 2031 disk drives. 
Perhaps it is in theory, but it's never worked for me or my 
friends. There have been rumours that Commodore has writ- 
ten a new manual for the 154T if they have. 1 strongly suggest 
you try to get one. It might clear up a lot of Head Aches. 

One final rumour about the 1541 is a fault in the save-wilh- 
replace command (save"@0:filename"}, 1, too, blamed it for 
destroying my programs and data. But I discovered the real 
culprit was an occasional disk swap, forgetting to after the @, 
or, worst of all, absent mindedly typing save''sO;filename'\ 
Since 1 started double checking my typing and initializing the 
drive each time a disk swap was made, 1 have had no problems. 
Remember, too, ifyoudon'tgive each disk you format a unique 
ID, just changing the disks can be fatal. 

I recently had a chance to use a new 1541 drive. They have a 
"right-angle" door latch, no over-healing problems, no head- 
banging (suggesting a new ROM). 

Still, if you Ye in the market for a new Commodore compatible 
drive, you might consider the Commodore 128"s 1571 multi- 
mode disk drive. It behaves like a 1541 in the 64 mode, and can 
be directly connected to the serial port. In the 1 28 mode (for use 
with theC128o[ily), it becomes a dual-sided (340K Byte) drive 
capable of speeds of 12000 baud! Thats more than 46 times 



faster than a normal 154L It's also able to read CP/M disks 
when used with the CI 28. For more information, see Commo- 
dore Magazine, April i985. 

Tom Johnson, Jefferson, Missouri 

Commodore documentation almays seems to have bugs in it. 
regardless of who if 's written by (ie. Commodore or otherwise) 
and I suppose no manufacturer is 100% immune to this 
problem. In defence of my statements regarding the terminally 
ill Block Commands, I still feel that some revisions of the I54rs 
ROM's are still a little shakey. Also, look back at my article once 
again. Closing the command channel after access was only 
specified with Block-Allocate and Block-Free. Other than that, 
your letter is terrific. Oh. bytheway. Hope you've been catching 
our current debate regarding the save with replace bug. Charles 
Whittem was able to reproduce it, but not isolate its cause. 



18-0 Screwup Fixed: Having read your article on "Learning 
The L.anguage Of DOS" in VoL5, lss.5 of The Transactor, 1 am 
now apparently one o( those dangerous people. (You know 
what is said about someone with a little knowledge?) Without 
dragging out a story, here's my situation briefly: 

A friend of mine has a program called ''1 8-0 Screwup'\ Believe 
me. it works JUST FINE! He inadvertently ran it while he had a 
disk in his drive which he didn't want screwed up. It appears 
that only the second and perhaps third byte of track 18, sector 
0. has been changed. He asked me for help. So, armed with 
your article and the 1541 drive manual, I set to work. Enclosed 

you'll find the short program I've been trying. 1 have narrowed 
the problem down to around line 150. No matter what IVe tried 
(closing unnecessary channels, using a different channel from 
the one used for the "B-R" command, and replacing the ^'B- 
W" command with the "UB" and 'VT command), I still get the 
error 70, NO CHANNEL. 

Can you help? The disk in question is not a critical one, as there 
are back-ups on file, but, now it has become a riddle to me. 
Any input you can give will be welcome. 

50open15,8,15,"i" 

60open5,8,5/#0" 

70pnnt#15/b-r:"5;0;18i0 

75 close 5 

80print#15,"m-r"chr$(1}chr$(3) 

B2get#15,a$ 

83 print asc(a$-t-chr$(0)) 

90 open 8. 8, 15 

100print#8,"rn-w'chr$(1)chr$(3)chr$(1)chr$(1) 

110prjnt#l5,^m-r"chr$(01)chr$(03) 

120print#15,"rn-r"chr$(1)chr$(3) 

130get#15,a$ 

1 40 print asc(a$ + chr$(0)) 

145 open 5,8,5 

150print#15,"b-w:"5;0;1B;0 

1 60 closeS: closeS: closel 5 

Dennis McKee, Ottawa, Ohio 
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The problem with a No Channel Error is one that I am familiar 
with. It caused me great pains a long time ai^o when first 
working directly with Commodore DOS. Il look quite a bit of 
experimentation, just as you have done, before the cure was 
found. The cure, do not Initialize the drive when OPENing the 
15th channel The bug is that once the drive starts initializing, it 
tends to ignore a few commands coming over the bus, namely 
the OPEN statement. In your example, as in my original one, 
OPENing the direct access buffer through channel 5 was ig- 
nored, therefore a No Channel error would be generated 
thereafter through reference to channel 5. If you leave out the 
Initialization, your program should work. 

If you care to key in the program listed below, you might find it 
worth your effort. Ws a take off of your program, with a few 
mods. It reads track 18. sector into RAM buffer ^0, $0300. 
Next, it displays the first 3 bytes held in the buffer. These bytes 
will normally be 18. I. and 65. The 18 and 1 point to track 18, 
sector I the first directory block. The 65, ascii 'a ', represents the 
DOS format, 1541/2031/4040. If you were to change this 65 to 
any other value, you might find a bit of fun wailing. You would 
not be able to write to the diskette any more, nor scratch files, 
quick new the diskette, or even Back-Up the diskette if using a 
4040 drive. This trick has been mentioned before in an article/ 
program 1 wrote a while ago called 'Drive Protect \ 

To get back on track, following the display of the current 
contents at that location, you are given a prompt to update 
RAM(y/n). Any other response but yai fhis point will abort the 
program. Once the RAM has been updated, the new data held 
at $0300-S0302 will be displayed, just for your peace of mind. 
Another prompt will then materialize, asking if you really want 
to write the block back to the diskette. As before, anything but a 
y will abort. Once the block has been correctly written to 
diskette, the files are all closed up. and the program ends. A 
nice ending to a bod experience. 

100 rem save "0:1 8-0 un-screw" ,8 

105z$ = chr$(0) 

110 open 15,8.15: open 5,8,5, " #0- 

115print#15/u1:"5;0;18;0:rem*readintrack18, 

sector 
120print#15,''m-r"chr${0)chr$(3)chr$(3) 

: rem • peek about in ram 
125forx = 0to2:get#15,a$:print300 + x;asc(a$4-z$) 

: next x 
130input'** update ram (y/n) ";sr$: ifsr$<>-y" then 160 
135print#15;"m-w"chr$(0)ctir$(3)chr$(3)chr$(18) 

chr$(1)chr$(65) 
140pnnt#15/m-r-chr$(0)chr$(3)chr$(3) 
145forx = 0to2:get#15,a$: print 300 + x;asc(a$ + z$) 

: next x 

150 input ""•' write back block (y/n) " ;wb$ 

:ifwb$<>"y- then 160 
155 pnnt#15,"u2:"5;0;18.0: rem* write back to track 18, 

sector 
160 closes: dose15: end 



Long Lost PAL: Today I discovered, to my satisfaction, a 
super magazine dealing with the things I wanl to know. [ can 
foresee a subscription to Transactor would be money put to 
wise use, and in the near future such a thing will happen. 

In the meantime, please enlighten us new comers to your 
publication. You mention the PAL assembler by Brad Temple- 
ton. Where can we find this assembler and how much should 
we expect to pay? 

This PAL sounds like a super good assembler, why haven't we 
heard about il in Washington. 

Brad Moore, Seattle, Washington 

It's nice to know that we're appreciated. The PAL Assembler is 
possibly the nicest assembler that you will ever work with on 
the Commodore machines. The syntax is similar to that of the 
Commodore Assembler, but it has some pretty sharp additives. 
The reason why you haven't heard of it in Washington is 
possibly because no dealers out your way have either. Try the 
address below for a copy, worth $69.95 Canadian, 

Pro-Line Software 
755 The Queenswoy East, Unit 8 
Mississauga, Ontario 
L4Y4C5 (416)273-6350 



Chop, Goes The Executor: I am writing regarding an article 
appearing in the July, 1985, issue of The Transactor, called DOS 
FILE EXECUTOR by Chris Johnsen. First, I would like to say 
how pleased 1 was (o see you tackle this hidden feature of the 
1541 drive, 1 would very much !ike to see more articles of this 

kind! 

There are a couple of problems with Mr, Johnsen's program as 
it was published- The most important is that it will not create 
proper DOS EXEC FILES if the program is longer that 250 
bytes! Wha( is missing is an update of the LOW/HIGH address 
of $00/03 instead of $00/03. $FA/03. $F4,04, etc.. What 
happens is that each block is loaded into successive buffers and 
then overlaid onto buffer ($0300) leading to massive confu- 
sion. 

A tip that your readers might find useful when working with 
DOS EXEC FILES is to place an RTS ($60) in front of the first 
byte in your M/L routine before creating a DOS EXEC FILE of it 
(Or modify Mr. Johnsen's program to do it for you!). 

This will allow you to >ark' your main routine in the drive and 

have control of it returned to you without ifs being executed. 

This is useful because you may first need lo memory-write (M- 

W) values to the drive and also want to memory-execute (M-E) 

at a different location. 

Bill MacMillan, Prince George, British Columbia 
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TransBASIC 
Installment ^5 



Nick Sullivan 
Scarborough, Ont. 



TransBASIC has been generating a lot of mail, lately, and I 
would like to thank all of you who have written in with your 
problems, questions, suggestions and — yes. new TransBASIC 
modules, some of which appear in this issue. Before we get to 
those, though. let's take a look at the rest of the mail. 

Assembler Compatibility 

Several readers have had success in adapting TransBASIC to 
assemblers other than PAL. One common requirement is to 
change PAL's non-standard .asc pseudo-op, with double 
quotes, to .byte with single quotes. 

Not all assemblers parse expressions in the same way PAL 
does. For instance, given the instruction; 

lda#>label-1 

. . . the effect in PAL is to load the accumulator with the high 
byte of the address ("label-r). At least one assembler, the 
Commodore 64 Macro Assembler Development System, evi- 
dently takes a different approach, by first taking the high byte 
of 'label', and then subtracting 1. Presumably the answer is 
caution and parentheses: 

lda#>(label-1) 

! would appreciate it if readers would let me know of other 
problems along this line. 

Back in the first TransBASIC column. I said that ^'unless you 
have access to a copy of PAL, or some other assembler that 
parasitizes the BASIC source editor, TransBASIC is not for you". 
After receiving a letter asking for an elucidation of that remark. 
I realized it was a bit too sweeping. The point was that the ADD 
command will merge TransBASIC modules only if they are 
stored in the form of BASIC program text — assemblers with 
their own editors won't work. On the other hand, if the 
particular package offers some means of merging files by line 
numbers, the ADD command isn't necessary, and maybe 
TransBASIC is for you after all. 

Bug Reports 

Numerous letters make mention of three problems. 1) The 
shifted left parenthesis was missing from the keyword line 
(602) in the CHECK & AWAIT module that appeared in instal- 
ment 2. The line should have read: 

602 .asc "check": .byte$a8: .asc "await": .byteSaS 



Originally, this line was written with graphics characters em- 
bedded in the .asc string, and no .byte commands, but this is 
difficult to reproduce in a typeset program listing. 2) The 
CURSOR POSITION module, which was supposed to have 
appeared in the second instalment, didn't actually make it until 
the third. 3) Early copies of the Transactor disk with the 
programs of instalment number one^ had a problem with the 
TransBASIC loader program. In the incorrect copies, line 130 of 
this program reads: 

130a-1:load "tb/add.m'.8,1 

The correct version is: 

130 a- 1: load "tb/add,obi\8J 

Now for a trickier bug. David Stevenson of Pilot Mound, 
Manitoba, correctly points out that the indirect jumps in the 
TransBASIC kernel (Ivec. Ivec, evec and fvec) could potentially 
lie across a page boundary, depending on the size of the 
keyword table. Owing to a bug in the 6502/6510 microproces- 
sors, this condition would cause a crash. The solution is to 
make sure that the vectors fall on even-number memory 
locations, or that they do not lie across a page boundary. 

Taking the latter approach, Mr, Stevenson suggests putting the 
vectors before the keyword list instead of after. This would 
mean changing the line numbers around, but could be done 
fairly easily. Or, you could add the following line to the kernel: 

2129.if>('&255)-+-7: * = *+{*&1) 

This rather cryptic line will pad your object code by one byte if 
the vector table that follows would otherwise lie on an odd byte 
and across a page boundary. The number 7 represents the 
number of bytes in the table minus one — by choosing the 
appropriate value you could use this line any time a vector or a 
table of vectors occurs in a program you are writing. Will it 
work with assemblers other than PAL? 1 don't know. 



New Modules 

Six of the seven modules published this issue were contributed 
by readers, and there are more to come. 1 have edited all of 
them, sometimes heavily, to mesh more closely with TransBA- 
SIC; 1 hope I have not introduced any bugs. 

The LABELS module comes from Jerry Gillaspie of North 
Hollywood, California. Mr. Gillaspie writes: "! have always felt 
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that the biggest problem with BASIC was the need to GOTO 
and GOSUB to a hne number. The hne numbers have no 
significance relative to the function being performed." His new 
commands. L, LGOTO and LGOSUB get around this problem 
nicely. I added SGOTO and SGOSUB to the module for even 
greater flexibility — and introduced a problem. This is dealt 
with in another small module, TOKEN & VAR. 

Charles Kluepfel of Bloomfield New Jersey, has contributed two 
modules. One, ARCFUNCTIONS, provides two trigonometric 
functions missing in regular BASIC. The other. INSTRING, 
duplicates the 1NSTR( function found in many BASICs, but with 
an extension that makes use of the Boolean operators, 

Mr. Kluepfel asks an interesting question about compatibility 
between TransBASIC dialects: "If I write a program on a 
(dialect) having commands A, B, and C, ufilizing the B and C 
commands, then later try running on a version that has B, C 
and D, the B and C commands will have different tokens, and 
the thing won't work." 

This is entirely true. The whole point of TransBASIC is that 
keywords are dynamically, not statically, assigned to tokens. 
Thus, in different dialects, the same keyword may have a 
different token. There are two answers to this difficulty. One is 
to make a new dialect for every new program you write, to label 
it, and to stick with it. The other is to search and replace tokens 
with a programming utility. That can get you out of a jam. but 
it's a lot more awkward. 

Mr. Kluepfel adds: ''As for other commands and functions I 
would like to see, these include PRINT USING, SWAP (inter- 
change two variables), UNDIM (to delete one or more arrays) 
from memory so it can be reDlMmed), a new RND that allows 
specification of the range of random numbers desired or a 
repetition of the previous random number given, a RESTORE 
to a line number, a LINPUT, and a computed GOTO." 

Anyone interested? We already have one version of a SWAP 
command awaiting publication, and a version of the RND 
function similar to the one Mr, Kluepfel suggest, but without 
the repetition feature. An extended INPUT has also been 
written, that does not produce the question-mark prompt, and 
can be terminated only by a carriage return. Of course, the 
INPUT statement has always provided lots of room for innova- 
tion, and there are plenty of other possibilities. The UNDIM will 
require a memory move utility, one of which will be introduced 
in the next column, so it might be best lo hold off on that for 
now. 

Another "instring' function comes from Michael Philiips of 
Camden, Tennessee. This one also features an interesting 
extension: the ability to specify a point in the first string at 
which the search for the second string is to begin. In order to 
distinguish it from Charles Kluepfel's contribution, I renamed 
this one PLACE(, as in Simons^ BASIC. 



Sliaun Erickson of Jamestown, North Dakota, has sent in the 
PRINTAT module, which is like an extended version of the 
CURSOR command. 

And Frank Vanzeist, of St. Mary's, Ontario, has contributed his 
extensive SOUND THINGS module, with its 28 statements and 
4 functions, which should make poking the SID chip a thing of 
the past. 

Thanks to all the above contributors, and to those whose work 
has been received, but not yet published. Next issue, I hope to 
have some disk commands by Darren Spruyt, whose work has 
often appr \red in this magazine in the past; a very fast merge 
routine that you can use instead of ADD; and much more. 

New Commands 

This part of the TransBASIC column is devoted to describing 
the new commands that will be added each issue. The descrip- 
tions follow a standard format: 

The first line gives the command keyword, the type (statement 
or function), and a three digit serial number 

The second line gives the line range allotted to the execution 
routine for the command. 

The third line gives the module in which the command is 
included. 

The fourth line (and the following lines, if necessary) demon- 
strate the command syntax. 

The remaining lines describe the command. 

L. (Type: Statement Cat *: 073) 

Line Range: Routine in ROM 

Module: LABELS 

Example; L.GETLOOP: GET U$ 

A line is labelled for reference by the LGOTO, LGOSUB, 

SGOTO and SGOSUB statements. The L. command must be the 

first on its program line if the label is to be recognized. 

LGOTO (Type: Statement Cat *: 074) 

Line Range: 5924-6100 

Module: LABELS 

Example: IF A£<>CHR$(13} THEN LGOTO GETLOOP 

The program is searched for a line bearing the specified label. If 
found, execution continues from that line, otherwise an Unde- 
fined Statement error results. 

LGOSUB (Type: Statement Cat ■: 075) 

Line Range: 5870-6100 

Modu!e: LABELS 

Example: LGOSUB BLUEBIRD 

The program is searched for a subroutine labelled as specified. 
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SGOTO (Type: Statement Cat *: 076) 

Line Range: 5920-6130 

Module: LABEl^ 

Example: U$ = " BLUEBIRD " : SGOTO U$ 

The program is searched for a line bearing the label specified 

by the string expression. If found, execution continues from 

that line. Otherwise, the program is searched for a line with the 

label DFAULT, and if found, execution continues from there. 

Otherwise, an Undefined Statement error results. 

SGOSUB (Type: Statement Cat *: 077) 

Line Range: 5866-6130 
Module: LABELS 
Example: INPUT L$: SGOSUB L$ 

The program is searched for a subroutine bearing the label 
specified by the string expression. If found, the subroutine is 
executed. Otherwise, the program is searched for a subroutine 
with the label DFAULT and, if found, the subroutine is exe- 
cuted. Otherwise, an Undefined Statement error results. 



modihed by using a Boolean operator as the third argument in 
the function. AND is the default, and operates as described 
above; therefore example two returns the value 3. OR returns 
the position of the first character in String 1 that matches any 
character in String 2, NOT returns the position of the first 
character in String 1 that does not match any character in 
String 2, 

PLACE( {Type: Function Cat*: 081) 

Line Range: 6398-6546 
Module(s): PLACE 

Example: Q = PLACE( " CLOVERLEAF " , - LOVER " ) 
Example: R = PLACE(5, " RAT-A-TAT-TAT \ ^ AT" jString 1 is 
scanned for an occurrence of String 2. If one is found, the 
starting position of String 2 in String 1 is returned, counting 
from 1 . An unsuccessful search returns 0. The position in String 
1 at which the search is to commence can be specified with an 
optional first parameter as in the second example, which 
returns a value of 8. 



TOKEN$( (Type: Function Cat*': 078) 

Line Range: 6132-6!% 
Module: TOKEN &VAR 
Example: SGOTO TOKEN${ " POKER " ) 
A string is returned which is the tokenized version of the 
argument string. One use is illustrated in the example. The 
label specified by the L. labelling command (073) is tokenized 
by the BASIC and TransBASIC tokenizing routines, whereas 
the argument string of the SGOTO and SGOSUB commands is 
not tokenized. This would result in the label not being recog- 
nized if it contains one or more BASIC and/or TransBASIC 
keywords {as with "POKER"). By tokenizing the string with 
this function before the search, the match can be made success- 
fully. 

VAR( {Type: Function Cat *: 079) 

Line Range: 6198-6208 
Module: TOKEN &VAR 
Example: PRINT VAR(U$) 

An address is returned corresponding to the address of the data 
in the named variable — the third byte in the variable's entry 
in the table above BASIC program text space. In the case of 
numeric variables, the address is that of the actual data; in the 
case of string variables, the address is that of the string descrip- 
tor. 

INSTR( (Type: Function Cat *: 080) 

Line Range: 6210-63% 

Module: iNSTRING 

Example: A = INSTR(U$,V$) 

Example: B = INSTR{"INSANE\^'SANE\AND) 

Example: IF INSTR(W$, " JKQXZ " ,0R) THEN PRINT " GOOD 

SCRABBLE WORD " 
Example: IF INSTR{M$, "01 " .NOT) THEN PRINT " NOT 

BINARY") 
String 1 is scanned for an occurrence of String 2. If one is found. 
the starting position of String 2 in String 1 is returned, counting 
from I, An unsuccessful search returns 0. The search can be 



ASN( (Type: Function Cat ^; 082) 

Line Range: 6548-6702 
Module: ARCFUNCTIONS 
Example: U = ASN(l/2) 

The arcsine (inverse sine} of the argument is returned. Argu- 
ments less than -1 or greater than + 1 are illegal quantities, 
except that the function is forgiving of quantities exceeding t in 
absolute value, but very close to it, counting them as equal to 1 
to allow for accumulated errors in trigonometric computation. 

ACS( (Type: Function Cat '^: 083) 

Line Range: 6670-6702 
Module: ARCFUNCTIONS 
Example: U = ACS(V/W) 

The arccosine Onverse cosine) of the argument is returned. 
Arguments less than -1 or greater than + 1 are illegal quanti- 
ties, except that the function is forgiving of quantities exceed- 
ing 1 in absolute value, but very close to it, counting them as 
equal to 1 to allow for accumulated errors in trigonometric 
computation. 

PRINT® (Type: Statement Cat": 084) 

Line Range: 6704-6744 

Module: PRINTAT 

Example: PRINT® 1 5.5, " FLEAS IRK US " 

Example: PRINT® 5.12: INPUT C$ 

The cursor is moved to the specified column (first argument) 

and row (second argument), and the third argument, if any. is 

printed at that position. The third argument is passed directly 

to the BASIC print routine, and can be anything that is legal in a 

PRINT statement, 

CLESID (Type; Statement Cat ": 085) 

Line Range: 6908-6922 

Module: SOUND THINGS 

Example: CLESID 

Clears the 25 write only registers of the SID chip, and the SID 

image maintained by the SOUND THINGS module. 
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FREQ (Type; Statement Cat *; 086) 

Line Range: 6924-6932 
Module: SOUND THINGS 
Example: FREQ4,53000 

The first argument, in this and other SOUND THINGS com- 
mands, specifies the vo!ce(s) to which (he command is to apply. 
The argument is a 3-bit value in which the state of each bit 
indicates whether the corresponding voice is included in the 
command. The number 4, in the example, indicates thai in this 
instance the command applies only to the third SID voice. An 
argument of 5 would cause the command to affect both the first 
and the third voice; 7 would affect all three voices. The second 
argument is a frequency to be poked into the frequency 
registers for the indicated voice{s). 

PUWID (Type: Statement Cat *: 087 

Line Range: 6934-6948 

Module: SOUND THINGS 

Example: PUWID3, 1000 

Set the pulse width (second argument} of the voices specified in 

the first argument. 

FIFREQ (Type: Statement Cat *: 088) 

Line Range: 6950-6978 

Module: SOUND THINGS 

Example: FIFREQ FF+1 

Set the filter cutoff frequency to the specified value. 

ADPUL (Type: Statement Cat *: 089) 

Line Range: 6980-7026 

Module: SOUND THINGS 

Example: ADPUL 2 

Switch on the pulse width wave form in the specified voice(s), 

without affecting other bits in the wave form register except the 

noise bit, which is cleared. 

ADSAW (Type: Statement Cat *: 090) 

Line Range: 6984-7026 
Module: SOUND THINGS 

Example: ADSAW 6 

Switch on the sawtooth wave form in the specified voice(s), 
without affecting other bits in the wave form registers except 
the noise bit, which is cleared. 

ADTRI (Type: Statement Cat*: 091) 

Line Range: 6988-7026 
Modules: SOUND THINGS 

Example: ADTRi 7 

Switch on the triangle wave form in the specified voice(s), 
without affecting other bits in the wave form registers except 
the noise bit, which is cleared. 

NOWAV (Type: Statement Cat *: 092) 
Line Range: 7012^7026 
Modules: SOUND THINGS 

Example: NOWAV 5 

Clear the wave form nybble in the specified voice(s). 



NOI (Type: Statement Cat *: 093) 

Line Range: 6996-7026 

Modules: SOUND THINGS 

Example: NOI 1 

Set the wave form to noise in the specified voice(s). 

PUL (Type: Statement Cat *: 094) 

Line Range: 7000-7026 

Module: SOUND THINGS 

Example: PUL 7 

Set the wave form to pulse in the specified voice(s). 

SAW (Type: Statement Cat *: 095) 

Line Range: 7004-7026 
Modules: SOUND THINGS 

Example: SAW VV 

Set the wave form to sawtooth in the specified voice(s). 

TRI (Type: Statement Cat *: 096) 

Line Range: 7008-7026 

Modules: SOUND THINGS 

Example: TRI V)+V2 + V3 

Set the wave form to triangular in the specified voice(s). 

TEST (Type: Statement Cat *: 097) 

Line Range: 7028-7052 

Modules: SOUND THINGS 

Example: TEST 2,1 

Set or clear the test bit in the wave form register of the specified 

voice(s). The first parameter is the voice(s). The second is set (1 ) 

or clear (0). 

RING (Type: Statement Cat *: 098) 

Line Range: 7032-7052 

Modules: SOUND THINGS 

Example: RING B.O 

Switch ring modulation off or on in the specified voice(s). The 

first parameter is the voice(s)- The second is on (1) or off (0). 

SYfNC (Type: Statement Cat ": 099) 

Line Range: 7036-7052 

Module; SOUND THINGS 

Example: SYNC 4,1 

Switch synchronization off or on in the specified voice(s). The 

first parameter is the voice{s). The second is on (1) or off (0), 

GATE (Type: Statement Cat*: 100) 

Line Range: 7040-7052 
Module: SOUND THINGS 

Example: GATE 2,1 

Set or clear the gate bit in the wave form register of the specified 
voice(s). The first parameter is the voice(s). The second is set (1 ) 
or clear (0). Setting the gate bit starts the attack phase of the 
ADSR envelope; clearing the gate bit start the release phase. 
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ATT (Type: Stdlement Cat*: 101) 


TRDON (Type: Statement Cat": 109) 


Line Range: 7054-7070 


Line Range: 7130-7138 


Module: SOUND THINGS 


Module; SOUND THINGS 


Example: Al 1 1.2 


Example: TRDON 


Set the attack time in the specified voices (first argument) to the 


Switches on oscil ator 3. 


value in the second argument (range 0-15). 






HP (Type: Statement Cat *: 1 10) 


DEC (Type: Statement Cat*: 102) 


Line Range: 7140-7 58 


Line Range: 7072-7092 


Module: SOUND THINGS 


Module: SOUND THINGS 


Example: HP 


Example: DEC 6,11 


Turn the high pass fi ter on or off, leaving the status of the other 


Set the decay time in the specified voices (first argument) to the 


two filters unchanged. The parameter is 1 (on) or (off). 


value in the second argument (range 0-1 5). 






BP (Type: Statement Cat *: 1 1 1 ) 


SUS (Type: Statement Cat*: 103) 


Line Range: 7144-7158 


Line Range: 7058-7070 


Modue: SOUND THINGS 


Modue: SOUND THINGS 


Example; BP 


Examp e: SUS 3,15 


Turn the band pass filter on or off, leaving the status of the 


Set the sustain volume level in the specified voices (first 


other two filters unchanged. The parameter is 1 (on) or (off). 


argument) lu the va ue in the second argument (range 0-15). 






LP (Type: Statement Cat *: 1 12) 


REL (Type: Statement Cat*: 104) 


Line Range: 7148-7158 


Line Range: 7076-7092 


Module: SOUND THINGS 


Modue: SOUND THINGS 


Examp e; LP FS 


Example: REL 7,0 


Turn the low pass filter on or off, leaving the status of the other 


Set the re ease time in the specified voices (first argument) to 


two fillers unchanged. The parameter is 1 (on) or (off). 


the value in the second argument (range 0-15). 






POTX (Type: Function Cat *: 113) 


RESON (Type: Statement Cat*: 105) 


Line Range; 7060-7178 


Line Range: 7094-7112 


Module: SOUND THINGS 


Module: SOUND T INGS 


Examp e:P = POTX 


Examp e: RESON 1 1 


This pseudo-variable returns the value of a game padd e 


Set the filter resonance evel lo the specified value. 


p ugged into joystick port 1 . 


VOL (lype: Statement Cat *: 106) 


POTY (Type: Function Cat*: 114) 


Line Range: 7102-71 12 


Line Range; 7064-7178 


Modu e: SOUND THINGS 


Module; SOUND THINGS 


Example: VOL 6 


Example: PRINT POTY 


Set the combined volume level for the three S D voices to the 


This pseudo-variab e returns the value of a game paddle 


specified value. 


p ugged into joystick port 2. 


ULT (Type: Statement Cat*: 107) 


OSC3 (Type: Function Cat*: 115) 


Line Range; 71 14-7124 


Line Range: 7068-7178 


Module: SOUND THINGS 


Modu e; SOUND THINGS 


Examp e:FILT 12,1 


Example:J = OSC3'256 


Switch the hlter on or off. The first parameter is the voice(s) as 


This pseudo-variab e returns the current va ue of the upper 8 


usual, except that a fourth bit, corresponding to the audio input 


bits of the output of oscillator three. 


to the SID chip, is included. That bit contributes a value of 8 to 




the total for the voices selected. The second parameter in this 


ENV3 (Type; Function Cat *: 1 16) 


statement is 1 (for on) or (for off). Thus the example selects 


Line Range; 7072-7178 


filtering on for the audio input and for the third SID voice. 


Module: SOUND THINGS 




Examp e: FREQ 1 ,20000 + ENV 3* 1 


TRDOFF (Type: Statement Cat*: 108) 


This pseudo-variable returns the current value of the envelope 


Line Range: 7126-7138 


generator of oscil ator three. 


Module: SOUND THINGS 




Examp e: TRDOFF 




Switches off oscillator 3. 
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Modules So Far 



TransBASIC Modules that have appeared so far {Instalments t to 4) 



TransBASIC*! 



TransBASIC *3 



TB/ KERNEL 



CURSOR POSITION 



Statements: 2 Functions: Keyword Characters: 8 

Modified IF to work with TransBASIC 
Part of IF-ELSE construct 
Disable current TransBASIC dialect 



Statements: I Functions: 1 Keyword Characters: 10 



000 S/IF 

001 S/ELSE 

002 S/EXiT 



SCREEN THINGS 



Statements: 5 Functions: Keyword Characters: 22 



013S/GROUND 

OMS/FRAME 

015S/TEXT 

016S/CRAM 

017S/CLS 



Set background colour 

Set border colour 

Set text colour 

Fill colour memory with value 

Clear screen, or screen line range 



004 S/CURSOR 

005 F/CLOC 

SET SPRITES 



Move cursor to specified row and column 
Return cursor location 



Statements: 6 Functions: Keyword Characters: 27 



031 S/COLSPR 

032 S/SSPR 

033 S/CSPR 

034 S/XSPR 

035 S/YSPR 

036 S/XYSPR 



Set colour of sprite 

Turn on a sprite 

Turn off a sprite 

Move sprite to specified x-position 

Move sprite to specified y-position 

Move sprite to specified xy-position 



WITHIN 



TransBASIC *2 



DOKE & DEEK 



Statements: 1 Functions: 1 Keyword Characters: 9 



007 S/DOKE 

008 F/DEEK( 

BIT TWIDDLERS 



Poke a 16-bit value 
Peek a 16-bit value 



Statements: 3 Functions: Keyword Characters: 12 



009 S/SET 
OlOS/CLEAR 
01 1 S/FLIP 

CHECK & AWAIT 



Set specified bit at address 
Clear specified bit at address 
Flip specified bit at address 



Statements: Functions; 2 Keyword Characters; !2 



018F/CHECK( 
0]9F/AWA!T( 

KEYWORDS 



Check keyboard for valid character 
Wait for valid character from keyboard 



Statements; I Functions: Keyword Characters: 8 

059S/KEYWORDS Print currently aclive TransBASIC key- 
words 



Statements: Functions; 1 Keyword Characters: 7 

040 F/W1TH[N( Return true i[ value lies within specified 



raiit>e 



READ SPRITES 



Statements: Functions: 2 Keyword Characters: 10 



041 F/XLOq 

042 F/YLOC( 



Return x-position of specified sprite 
Return y-position of specified sprite 



TransBASIC *4 



STRIP & CLEAN 



Statements: Functions: 2 Keyword Characters: 14 



045 F/STR]P$( 
046F/CLEAN$( 



Remove non-alphanumerics from siring 
Remove non-blank non-alphanumerics 
from string 



SCROLLS 



Statements: 4 Functions: Keyword Characters: 24 



067S/USCROL 
068S/DSCROL 
069 S/LSCROL 
070S/RSCROL 



Scroll screen area up one row 
Scroll screen area down one row 
Scroll screen area left one row 
Scroll screen area right one row 
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Editor's Note: This jumbo TransBASIC article has been brought to 
you thanks to the diligent efforts of Nick Sullivan, Although several of 
the modules this time were submitted by readers, much work went 
into preparing them. As mentioned, Nick found it necessary to edit 
almost everything; in all cases the line numbers were modified; labels 
were changed in the source lishngs (o cut down on the chances of 
duplicates; keywords had to be changed in many cases to eliminate 
tokenization problems (eg. 'RES' was one of the Sound Things key- 
words but had to be changed so as not to interfere with RESTORE); 
and commenting, general organization, not to mention the presenta- 
tion itself, ale up some hours. I'm sure- 

For those who submitted TransBASIC modules, The Transactor will 
be sending a free \ year magazine subscription, plus the Transactor 
Disk for this issue (Disk *8) so you don't have to retype your own 
modules to resemble what Nick has done to them. 

As promised last issue, the following is a quick refresher on building a 
TransBASIC dialect. M.Ed. 

Using TransBASIC 

About the easiest way to get in on TransBASIC Is to obtain a copy of 
The Transactor Disk (Disk '4 or greater), TransBASIC users must also 
have the PAL Assembler package (or a similar assembler as discussed 
earlier). 

The directory shows a program called "transbasic instr". LOAD and 
LIST and you will see that it will proceed to load two other programs: 
the first is the 'ADD' module which allows you to add more modules to 
the 'tb/kernel' which is loaded second. 

Now comes the easy part. Select the modules you need from those you 
have on disk (Disk *S contains every module released to date). Then, 
for each module, follow these steps; 

1) Use the ADD statement to merge the module into memory, for 
example: 

ADD "SCREEN THINGS" 

2) List line 2 of your program. This line number is common to all 
modules. It will read something like; 

REM 5 STATEMENTS, FUNCTIONS 

3) List line 95. This kernel line records the number of statements and 
functions in the TransBASIC that you are creating. When you first 
load in the kernel, line 95 reads: 

95 XTRA BYTE 2,0 ; STMTS,FNCS 

, . , indicating that the kernel contains two statements (Bl^E and EXIT) 
and no functions. You are responsible for updating the two numbers 
appropriately as you ADD modules. After adding SCREEN THINGS, 
lor instance, the first number in line 95 would be increased by five, 
the second would be left unchanged. 

When you have finished adding modules, it would probably be a good 
idea to save the completed source file, at least temporarily. Then load 
PAL, if you haven't previously, and give the RUN command. PAL then 
proceeds to assemble all the modules you 'ADDed' into your new 
TransBASIC extension- 

Normally the object code is origined to that popular niche at $C000, 
but youcanselect another starting point if you wish (see line 3 1 of the 
source code). Save the obiecl code directly, perhaps with Supermon, 
or convert it into DATA statements that can be loaded in with 
whatever programs you intend shall make use of the added com- 
mands. 



With that, the work is done. To activate the new commands type: 

SYS 49 152 

Presto! — you have just extended BASIC to your own specifications, 
and now it's ready for use. 



Program 1 : LABELS 

rem labels (j, gi[laspie 3/85) : 

1 ; 

2 rem 5 statements, functions 
3: 

4 rem keyword characters: 24 
5: 



JL 
FH 
MH 
HH 
KE 
JH 
NJ 
JK 
HI 
CI 
CL 
KK 
Al 
LD 
CI 
JF 
OB 
PP 
HE 
DB 
IL 
OP 
JJ 
BO 
IF 
AE 
ML 
EP 
fH 
LL 
MH 
DN 
HE 
11 
ON 
Gl 
JK 
Kl 
MB 
01 
GC 
CA 
Gl 
HH 
KK 
EJ 
NB 
00 
BB 
PM 
HB 
01 
NP 
EH 



routine 

- 'data' 

Igot 

Igosu 

sgot 

sgosu 



line 

$adt8 

5924 

5870 

5920 

5866 



6 rem keyword 

7 rem I. 

8 rem Igolo 

9 rem Igosub 

1 rem sgoto 

1 1 rem sgosub 
12: 

13 rem = = = = = = = === = = = = = 

14: 

120 .byte$4c,$ae: .asc ^IgotOlgosuB 

121 .asc -sgotOsgosuB" 

11 20 word $a8f7,lgot-1 Jgosu-1 

1121 .word sgot- 1,sgosu-1 
5866 sgosu sec 

5868 .byte $24 

5870 Igosu clc 

t6 

#$ff 

t5 

#3 

$a3fb 

$7b 



ser # 

073 

074 

075 
076 
077 



5872 

5874 

5876 

5878 

5880 

5882 

5884 

5886 

5888 

5890 

5892 

5894 

5896 Igosi 

5898 

5900 

5902 

5904 

5906 

5908 

5910 

5912 

5914 

5916 

5918; 

5920 sgot 

5922 

5924 igot 

5926 

5928 

5930 

5932 

5934 



ror 
Ida 

sta 

Ida 

jsf 

Ida 

pha 

Ida $7a 

pha 

bit t6 

bp! Igosl 

jsr sgstr 

Ida $3a 

pha 

Ida $39 

pha 

Ida #$8d 

pha 

jsr $79 

dey 

dey 

jsr Igoll 

jmp $a7ae 

sec 

-byte $24 
clc 

ror t6 

Ida #$ff 

sta t5 

bit f6 

bpl Igoll 



;s = neg, l = pos 
;max string length 



; duplicate rom's 
; gosub routine 
;pushchrget ptr 



;test jump-type flag 

;evaluate string 
ipush line number 



;push gosub token 



back up token offset 
lo labelled goto 
use labelled goto 
next statement 



;s = neg, l = pos 
;max string length 

;test jump- type flag 
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CL 


5936 


jsr sgstr ; 


evaluate string 


PD 


6064 Ida ($5f),y ; 


to next line 




J 


5938 lgot1 


dey ; 


back up token offset 


NH 


6066 lax 






JL 


5940 


dey ; 


tol. command 


PG 


6068 dey 






PG 


5942 


tya ; 


convert to token 


GN 


6070 Ida ($5f),y ; 


get first char 




CM 


5944 


Isr ; 


stored int4 


IJ 


6072 iny 






FA 


5946 


ora #$40 




JK 


6074 bne tgot3 ; 


look for next label 




OJ 


5948 


sta t4 




KO 


6076 IgotIO bit t6 ; 


test jump- type flag 




FA 


5950 


cmp#$5d 




BB 


6078 bpl gotll ; 


l-type, give up 




PD 


5952 


bcc lgot2 




IE 


6080 do ; 


set flag to l-type 




Gl 


5954 


inc t4 




MP 


6082 rof t6 






HC 


5956 lgot2 


da $7a ; 


save cfirget ptr 


BE 


6084 da #<trpstr ; 


hunt 'dfaulf abel 




EK 


5958 


sta t2 




BJ 


6086 Idy #>trpstr 






A 


5960 


da $7b 




DM 


6088 sta $7a 






KK 


5962 


sta t3 




!C 


6090 sty $7b 






MH 


5964 


da $2b ; 


start of basic ptr 


DC 


6092 Idy #6 






DG 


5966 


Idx $2c 




CJ 


6094 sty t5 






GL 


5968 


dy #1 ; 


point to link hi byte 


BD 


6096 jmp lgot2 






LJ 


5970 Igota 


sta $5f ; 


set zp pointer 


MC 


6098 goti 1 jmp $a8e3 


;undef stmt error 




FM 


5972 


stx $60 ; 


to current line 


Kl 


6100trpstr .asc "dfault" 






DA 


5974 


Ida ($50,y : 


check for end of pgm 


OE 


6102 sgstr sty $14 


;save token offset 




OB 


5976 


beq IgotIO ; 


yes. undef'd stmt 


JD 


6104 sr $ad9e 


;eva abel string 




OB 


5978 


Idy #4 ; 


pojntto Isttokbyte 


L 


6106 jsr $b6a3 


,get strlen & addr 




CJ 


5980 


Ida ($5f),y ; 


get it 


OK 


6108 sta t5 


;save ength 




C 


5982 


cmp#$5f ; 


check it lb token (*-) 


NA 


6110 stx $7a 


;set chrget ptr 




PR 


5984 


bne lgot9 ; 


no, try next line 


OH 


6112 sty $7b 


; to string data 




KE 


5986 


iny ; 


yes 


NC 


6114 Idy $14 


;recover token offset 




OD 


5988 


Ida {$5f),y ; 


.which tb token 


; AN 

1 


,6116 dey 


;back up token offset 




OB 


5990 


cmpt4 


.check if label 


IN 


,6118 dey 


; to labelled jump 




HA 


5992 


bne lgot9 ; 


;no, try next ine 


DK 


6120 dey 






JG 


5994 lgot4 


iny ; 


istripoff blanks 


FK 


6122 dey 






HI 


5996 


fda ($5f),y 




GA 


6124 sec 


;sets-jumpfag 




MN 


5998 


cmp #$20 




C 


6126 ror t6 






FL 


6000 


beq lgot4 




MN 


6128 rts 






DG 

HA 


6002 
6004 


Idx 15 
jsr $79 


1 

;get string length 
;beginlabe compare 


IG 


6130; 










EF ■ 


6006 gotS 


cmp{$5f),y 










GJ 


6008 


bne \qo\Q 


;no match, next line 


Program 2: TOKEN &VAR 




GL 


6010 


iny 
dex 


;match. test next char 








DD 


6012 


H ■ ^m m ^ ^m m h ^m ^^ ^^ ^m m 


CH 


rem token & var (apr; 7/85) 


+ 




LM 


6014 


beq lgot6 




FH 


1 : 






Al 


6016 


jsr $73 




DH 


2 rem statements, 2 functions 




DN 


6018 


bne IgotS 


;doneJf ine/stmtend 


HH 


3: 






KA 


6020 fgot6 


Ida ($5f),y; 




DE 


4 rem keyword characters: 1 1 




MO 


6022 


beq got7 


;yes, end of ine 


JH 


5: 






IG 


6024 


iny 




NJ 


6 rem keyword routine 


ine ser # 




GK 


6026 


cmp #$20 


;blanks don't oount 


HB 


7 rem token$( token 


6132 078 




JN 


6028 


beq lgot6 




KG 


8 rem var( var 


6198 079 




JE 


6030 


dey 




NH 


9: 






DG 


6032 


cmp#":^ 


;1est end o1 stmt 


ME 


1 rem u/usf p (2620/006) 






AK 


6034 


bne got9 


; no match 


PH 


11 : 






IM 


6036 igot7 


Ida $5f 


;copy ptr to chrget 


KD 




=============- 




KH 


6033 


Idx $60 




Bl 


13: 






OA 


6040 


cic 




BK 


611 .asc "tokens': .byte $a8 




00 


6042 


adc #4 


;skjplink, line# 


GD 


612. asc "var": ,byte$a8 






DL 


6044 


bcc IgotS 




EC 


1611 ,wordtoken-1 






KH 


6046 


inx 




FH 


1612 .word var-1 






MB 


6048 tgot8 


sla $7a 




IB 


2620 usfp dx #0 


iroutine to convert 




MP 


6050 


stx $7b 




GM 


2622 stx $0d 


:unsigned integer 




LE 


6052 


jmp $a8f8 


;use data rtn to skip 


N 


2624 sta $62 


iin , a (high byte) 




Bl 


6054 lgot9 


Ida t2 


; point back to 


OH 


2626 sty $63 


;and .y (low byte) 




NE 


6056 


sla $7a 


; start of labe 


BB 


2628 Idx #$90 


;to floating point 




MM 


6058 


Ida t3 




K 


2630 sec 


; in fac#1 




KK 


6060 


sta $7b 




NH 


2632 jmp $bc49 






H! 


6062 


Idy #1 


;pointtolink 


AM 


2634; 




Tfw nuikKicior 




22 




MWun*6,ltMM03 





HO 


6132 token jsr $b3a6 


;program mode only 


JC 


6220 


pha 


;push ength 




NC 


6134 jsr $aef4 


;evaluateexpr 


CA 


6222 


txa 






KP 


6136 jsr $b6a3 


;set string plrs 


AG 


6224 


pha 


;push addr-lo 




EJ 


6137 cmp#$59 




: JA 


6226 


tya 






LA 


6138 bcs tkn4 


;up to 88 chars 


AE 


6228 


pha 


;push add r- hi 




KM 


6139 lay 




IH 


6230 


Ida t3 






CF 


6140 Ida #0 


;clear .a and .x 


Kl 


6232 


jsr $b47d 


; lower b-o-s ptr 




JM 


6142 tax 




ME 


6234 


jsr $aefd 


; check for comma 


1 


LO 


6144tkn1 sta $200,y 


;copy string to 


DJ 


6236 


jsr $ad9e 


;evaluate string 2 




FA 


6146 dey 


; input buffer 


JO 


: 6238 


jsr $b6a3 


; and set up ptrs 




HM 


6148 Ida {$22),y 


; with terminal 


KA 


6240 


stx $22 


jstore address ptr 




FD 


6150 cpy #$ff 




Jl 


6242 


sty $23 






CC 


6152 bne tknl 




LK 


6244 


sta t3 


istore length 




'ba 


6154 Ida $7a 


;push chrgetptr 


00 


6246 


pa 








6156 pha 




CD 


6248 


sta $25 


;set up addr ptr 




OM 


6158 Ida $7b 




JN 


6250 


pla 


; to string 1 




Ml 


6160 pha 




GD 


6252 


sta $24 






JG 


6162 stx $7a 




GP 


6254 


pla 






OC 


6164 jsr tok 


jtokenize buffer 


MD 


6256 


sta t2 


;save length 




PB 


6166 pa 


; pull chrgetptr 


BG 


6258 


sta t4 


;setuptest imit 




GB 


6168 sta $7b 




DJ 


6260 


dec t4 






CK 


6170 pla 




EJ 


6262 


Idx #$af 


;'and' - default 




HB 


6172 sta $7a 




K 


6264 


jsr $79 






PC 


6174 tya 


;calc length of 


KL 


6266 


cmp*"*)" 


ibranch on paren - 




PE 


6176 sec 


; tokenized line 


GF 


6268 


beq insl 


; end of expr 




HC 


6178 sbc #5 




lA 


6270 


jsr $aefd 


;test for comma 




OD 


6180 jsr $b47d 


; reserve str space 


MA 


6272 


tax 


;booleanto .x 




FP 


6182 tay 




BO 


6274 


jsr $73 


;get next char 




AK 


6184tkn2 dey 


;copy tokenized 


MB 


6276 insi 


jsr $aef7 


;test for r. paren 




PP 


6186 bmi tkn3 


; ine to siring 


HA 


6278 


sec 






DL 


6188 Ida $200,y 


; storage 


FA 


6280 


Ida t2 


;str1 null -exit 




KD 


6190 sta {$62),y 




HN 


6282 


beq ins6 






OE 


6192 bne tkn2 


1 


CG 


6284 


sbc ta 


;len str2-len strl 




MA 


6194 tkn3 jmp $b4ca 


1 

;set up descriptor i 


LM 


6286 


ror t6 


;rot carry tots 




DJ 


6195tkn4 jmp $b658 


;stfing too long 


CL 


6288 


lay 


iresutto.y 




KK 


6196: 


i 
1 


EL 


6290 


Ida t3 






AJ 


6198vaf jsr $b08b 


;find variable 


FM 1 


6292 


beq ins6 


;str2nuli-exit 




KP 


6200 Idy $47 


jload pointer 


Bl 


6294 


Ida #0 






MG 


6202 Ida $48 


; to data 


JP 


6296 


sta insctr 


;init counter 




NH 


6204 jsr usfp 


;conv to floating 


KG 


6298 


cpx #$af 


; and ;test for and 


1 


GP 


6206 jmp $ae17 


;check tor paren 


JN 


6300 


beq ins2 






GL 


6208; 




MJ 
BO 


6302 
6304 


cpx #$b0 
beq ins3 


; or jtestforor 












FK 


6306 


cpx #$a8 


;not;testfor not 


Program 3: INSTRING 


FO 


6308 


beq ins3 










pr/85) : 


MF 
HM 


6310 
6312 ins2 


jmp $af08 
bit t6 


; syntax error 
;exit if len str2 




NN 


rem instring (c. kluepfel, a 




FN 


1 1: 




BM 


6314 


bpl ins6 


; > len strl 




EC 


2 rem statements, 1 fund 


:Eon 


HP 


6316 


sty t4 


;store test limit 




HH 


3: 




OM 


6318 ins3 


Idy #0 


;init index 




GO 


4 rem keyword characters: 


6 


CN 


6320 ins4 


Ida {$24), y 


:getstr1 char 




JH 


5: 




JH 


6322 


cpx #$at 


ibranch on or/not 




NJ 


6 rem keyword routine 


line ser# 


IP 


6324 


bne ins9 






LN 


7 rem f/instr( instr 


6210 080 


EG 


6326 


cmp ($22),y 


;compare with str2 




MH 


8: 




NK 


6328 


bne ins7 


;skip if unequal 




HD 


9 rem = . = r = ... 




CF 


6330 


iny 


;advance index 




OH 


10: 




PF 


6332 


cpy t3 


;index = len strl 




HB 


613,asc "instr": .byte $a8 




OA 


6334 


bne ins4 


; means success 




HD 


1613 .wordJnstr-1 




LB 


6336 ins5 


Idy insctr 


;get function 




HC 


6210 instr Ida #2 


; check stack depth 


DH 


6338 


.byte $2c 


; result (counter) 




CL 


6212 jsr $a3fb 




OM 


6340 ins6 


Idy #$ff 


;make result zero 




KH 


6214 jsr $ad9e 


; evaluate string 1 


GK 


6342 


iny 






DN 


6216 jsr $b6a3 


; and set up ptrs 


LN 


6344 


jmp $b3a2 


;resulttofac 1 




KK 


6218 sta t3 




DP 


6346 ins7 


inc insctr 


;bump counter 



TTwTramocfor 



23 



>Mum*«,lMiw03 





ji 


6348 Ida 14 ; 


get test limit 


BO 


6442 


tya 






DJ 


6350 cmpjnsctr ; 


branch if done 


IK 


6444 


pha 






PN 


6352 bcc insB 




NK 


6446 


Ida t3 ; 


lower b-o-s plr 




AP 


6354 inc $24 ; 


bump pointer 


JG 


6448 


jsr $b47d 






NH 


6356 bne ins8 ; 


intostrl 


CB 


6450 


jsr $79 ; 


retrieve separator 




Fl 


6358 inc $25 




NJ 


6452 


jsr Saefd ; 


must be comma 




AD 


6360 ins8 bne ins3 ; 


next pass 


IN 


6454 


jsr $ad9e ; 


evaluate next expr 




KA 


6362 ins9 Idy t3 ; 


get stn len 


EN 


6456 


jsr $b6a3 ; 


set up string ptrs 




FF 


6364 cpx #$a8 


branch on 'not' 


EA 


6457 


tax 






IE 


1 

6366 beq insll 




HA 


6458 


beq nsl6 ; 


str2 nufl 




OG 


6368in5lO dey ; 


try to match any 


NJ 


6459 


sta t4 






MB 


6370 cpv #$ff ; 


str2 char 


OE 


6460 


jsr $79 






BD 


6372 beq ins7 ; 


no, do next pass 


OF 


6462 


jsr $aef7 ; 


check right paren 




NO 


6374 cmp($22),y 




80 


6464 


pla i 


retrieve strl addr 




MD 


6376 bne inslO ; 


no, try next char 


FL 


6466 


sta $25 ; 


store at $24/25 




BH 


6378 beq ins5 ; 


yes, exit 


MM 


6468 


pla 






MH 


6380 insll dey ; 


try to match any 


AB 


6470 


sta $24 






IC 


6382 cpy #$ff ; 


str2char 


AN 


6472 


pla 






NM 


6384 beq ins5 ; 


no, exit 


FB 


6473 


beq nst6 ; 


str1 nuti 




JP 


6386 cmp($22},y 




NM 


6474 


sta t3 ; 


save stn ength 




JE 


6388 bne insll ; 


no, try next char 


EN 


6476 


pla 






PA 


6390 beq ins7 ; 


yes, do next pass 


jGC 


6478 


sta t2 ; 


save start pos'n 




OG 


6392; 




LB 


6480 


sta t5 i 


in it result 




NF 


6394Jnsctr ,byteO ; 


counter 


JK 


6482 


Ida t3 ; 


start pos'n must 




OH 


6396 i 




LC 
FL 


6484 
6486 


cmpt2 ; 
beq nst6 


be within strl 












JH 


6488 


bcc nst6 




Program 4: PLACE 


EE 


6490 


sbc t4 ; 


str1 cannot be 








+ 


IK 
BL 


6492 
6494 


bcc nst6 ; 
sta t6 ; 


. shorter than str2 
.save # of oops 




GG 


rem p ace (m. phillips 3/85} 




FH 


1 : 




EE 


6496 nst3 


cc ; 


.advance pointer to 




EC 


2 rem statements, 1 functioi 


n 


PO 


6498 


Ida $24 ; 


; strl, reflecting 




HH 


3: 




BJ 


6500 


adc t5 


, start position 




GO 


A rem keyword characters: 6 




AD 


6502 


sta $24 






JH 


5: 




Bl 


6504 


bcc nst4 






NJ 


6 rem keyword routine 


line ser# 


JB 


6506 


inc $25 






GH 


7remf/pace( nst 


6398 081 


EN 


6508 nst4 


dy #1 


;bumpstrl ptrby 1 




MH 


8: 




OE 


6510 


sty t5 


; at nst3 next time 




NL 






HP 


6512 


dey 


;index intostrl 




OH 


10: 




GN 


6514 nsl5 


Ida ($24),y 


;get a character 




EJ 


614. asc -place" :,byte$a8 




DM 


6516 


cmp($22),y 


;branch if no match 




FK 


1614 .wordnst-1 




MD 


6518 


bne nst7 


i with str2 




BG 


6398 nst Ida #2 


; check stack space 


LB 


6520 


iny 


; bump index 




OG 


6400 jsr $a3fb 




NN 


6522 


cpy t4 


;branch if more 




DC 


6402 Ida #0 


;defaull start char 


KH 


6524 


bne nst5 


; chars to test 




Al 


6404 pha 




AF 


6526 


Idy t2 


;get result 




HB 


6406 jsr $ad9e 


; evaluate expr 


AG 


6528 


iny 






EC 


6408 bit $0d 


;test type 


OJ 


6530 


.byte$2c 


;'bit' instruction 




AN 


6410 bmi nsl2 


;skip if string 


NA 


6532 nste 


Idy #0 


; search failed 




NH 


6412 jsr $b7a1 


;convtobytein .x 


NO 


6534 


imp $b3a2 


;resuttofac#1 




AA 


6414 jsr Saefd 


:check for comma 


AK 


6536 nst7 


Ida t2 


;quitit no more 




FG 


6416 pa 


;substitute value 


HD 


6538 


cmpt6 


; positions to 




OD 


6418 txa 


; in .X for default 


AE 


6540 


bcs nst6 


; search from 




FA 


6420 bne nsti 


;must be >0 


MB 


6542 


inc t2 


;bump result 




CL 


6422 jmp $b248 


;illegal quantity 


PA 


6544 


bne nst3 


:try again 




FO 
OM 


6424 nsti dex 
6426 txa 




lA 


6546; 












IJ 


6428 pha 












AM 


6430 jsr $ad9e 


; evaluate next expr 










DN 


6432 nst2 jsr $b6a3 


;setup string ptrs 










FK 


6434 sta t3 


;savestr1 length 










MB 


6436 pha 


;push stn length 










DB 


6438 txa 


;push stn addr 










EK 


6440 pha 










Tn8 Tluinoctor 


24 


h 




Volum»6,lmM03 



Program 5: ARCFUNCTIONS 


JD 


6642 Idx #0 








II 


6644 asi5 p\a 

6646 sta $69,x 


;pu fac#2 




EM 


rem arcfunclions {c. k uepfel 3/85) : 


PN 




FH 


1 : 




EN 


6648 inx 






DH 


2 rem statements, 2 functions 


i 


PF 


6650 cpx #6 


. 




HH 


3; 




EB 


6652 bne asi5 






PH 


4 rem keyword chars: 8 




DB 


6654 pha 


;push sign again 




JH 


5: 




ON 


6656 Ida $61 


;branch on 




NJ 


6 rem keyword routine ii 


le ser# 


MB 


6658 beq asi1 


; zero result 




AH 


7remf/asn( asin 6548 082 


Ml 


6660 pla 






EF 


8femf/acs( acos 6670 083 


NM 


6662 Ida $61 


;calcfac#2/fac#1 




NH 


9: 




BA 


6664 jsr tidiv 






ID 




= =========.= = 


KM 


6666 jmp $e30e 


;perform aln 




PH 


11 : 




CI 


6668; 






MD 


615. asc '^asn": .byte$a8 




EH 


6670 acos jsr asin 


; perform asin 




MC 


616. asc "acs'^ .byte$a8 




HA 


6672 Ida #<$e2eO 


;pointlopi/2 




AF 


1615 ,wordasin-1 




LC 


6674 dy #>$e2eO 




1 


OE 


1616 .wordacoS"l 




KG 


6676 jmp $b850 


;calc pi/2-tac#1 




LP 


6548 asin Ida #2 


;test stack depth 


M 


6678; 






EA 


6550 jsr $a3fb 




GC 


6680 f mult jsr condsg 


;mulliplyfac#1 




IP 


i 6552 jsr $79 


; reexamine byte 


JD 


6682 jmp $ba2b 


; by fac#2 




■ KP 


6554 jsr $aet4 


;eva , right paren 


CJ 


6684; 






HP 


6556 jsr $ad8d 


;checkexpr numeric 


BA 


6686 f div jsr condsg 


;divide tac#2 




JC 


6558 fda $66 


;push sign 


NC 


6688 jmp $bb12 


;byfac#1 




MB 


6560 pha 




IJ 


6690; 






BP 


6562 da #0 


;make it positive 


KP 


6692 condsg Ida $66 


;ad|ustsign 




MH 


6564 sta $66 




AB 


6694 eor $6e 






NH 


6566 Ida #<$b9bc 


; point to number 1 


AD 


6696 sta $6f 






PO 


6568 Idy #>$b9bc 




FL 


6698 Ida $61 






PL 


6570 jsr $bc5b 


compare with fac#1 


IB 


6700 rts 






AJ 
IC 


6572 beq asil 
6574 bmi asi3 


branch if equal 
or if fac is ess 


EK 


6702; 










AA 
LC 


6576 Ida #0 
6578 sta $65 

^~H f^ J~K ^~% #4^ ^^fr #^ 


clear low byle 
of mantissa 


Program 6: PRINTAT 




AF 
FP 


6580 sta $70 ; 
6582 Ida #<$b9bc ; 


J I'd 

and rounding byte 
repeat comparison 


AC 

FH 

AH 

HH 

GO 

JH 

NJ 

EC : 

MH 

HD 

OH 

DP 


rem printat (s. erickson 3/85) : 

1 ; 

2 rem 1 statements, functions 




PP 
GB 


6584 Idy #>$b9bc 
6586 jsr $bc5b 






JN 
LN 


6588 beq asil 
6590 bmi asl3 


1 


o . 

4 rem keyword characters: 6 
5: 

6 rem keyword routine 

7 rem s/prfnt® prinat 
8; 

Q r^m -- - 






PL 

J 
NN 


6592 jmp $b248 ; 
6594 asil da #<$e2eO : 
6596 Idy #>$e2eO 


1 

;ill quanlif >1 
;pointto pi/2 


line ser # 
6704 084 




EL 
DK 


6598 jsr $bba2 
6600 pla 


copylofac#l 
restore sign 




3 lt:Ml - = ==■ 

10: 

122 .asc "print" : ,byte$c0 






HE 
J 


6602 sta $66 
6604 asi2 rts 


and exit 






LH 
IK 
JC 
CO 
DJ 
JM 
IE 
NP 
EE 
MF 
,1.1 


6606 asi3 pa 
6608 sta $66 
6610 Ida $61 
6612 beq asi2 
6614 jsr $bc1b ; 
6616 Ida #3 ; 
6618 jsr $a3fb 
6620 Idx #5 ; 
6622 asi4 Ida $61 ,x 
6624 pha 
6626 dex 
6628 bp asi4 
6630 jsr $bcOc ; 

^^ ^% ^^ J^^ fl lb 


;restoresign 

it argument isO, 
so is result 
round fac#1 
check slack space 

push fac#t 


KC 
DA 
HL 

1 

i EB 
JA 
MC 
HE 
JC 
FB 
LB 


1122 word prinat-1 
6704 prinat jsr $b79e 
6708 six $14 
6710 cpx #$28 
6712 bcs prini 
■ 6714 jsr Saefd 
6720 jsr $b79e 
6722 cpx #$19 
6724 bcs prInI 
6726 Idy $14 


:eva exprlo .x 

;save(coumn#) 

;muslbe<40 

check for comma 
eva row to x 
muslbe<25 

column to .y 






MD 


6728 jsr $fffO ; 


kerna plolrtn 




KB 
CA 


.copyfaclofac#2 

f J I _d 


CI 

EO 

LL 


6730 jsr $79 ; 
6732 beq prin2 
6734 jsr $aefd 


quit If no 

string argument 

else check comma 




CP 
BM 
DD 
00 


6632 sr flmult ; 
6634 Ida #<$b9bc ; 
6636 Idy #>$b9bc 
6638 sr $b850 ; 


isquare fac#1 
:point to number 1 

;calc1-(fac#1) 


FO 
PF 
LF 
OM 


6736 jmp $aaaO ; 
6738 print jmp $b248 
6742prin2 rts 
6744; 


& print siring 
illegal quantity 




PM 


6640 jsr $bf71 ; 


,calc sqr(fac#1) 











Ttw Travuoctor 



25 
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Program 7: SOUND THINGS 


Ai 


6804 


rts 








MA 
JK 


6806; 
6808 getbit 


jsr $aefd ;■ 


check comma 


BG 


rem sound things (f. vanzeist 3/85) : 


FH 


1 : 


JP 


6810gbit1 


jsr $b79e ; 


get byte in, X 


MB 


2 rem 28 statements, 4 functions 


AF 


6812 


cpx #0 ; 


must be 1 orO 


HH 


3: 


BG 


6814 


bne gbit2 ; 


if x is then 


HO 


4 rem keyword characters: 1 26 


y 


6816 


six newval ; 


clear newvat 


JH 


5: 


PA 


68iagbit2 


cpx #2 




MG 


6 rem keywords #085 to #1 1 6 : 


ME 


6820 


bcs illqty 




LH 


7: 


CJ 


6822 


rts 




BO 
NH 




OB 


6824- 






9: 


BN 


6826 direct 


Ida $14 ; 


direct pokes a 


OP 


123 .asc "clesiDfreQpuwiDfifreQ" 


PP 


6828 


sta imsid,y ; 


two byte number 


CM 


124 asc ' adpuLadsaWadlrl" 


NE 


6830 


sta $d400,y ; 


for frequency, 


BB 


1 

125 asc '"nowaVnolpuL'" 


CC 


6832 


Ida $15 ; 


pu sewidth and 


DL 


126. asc ^saWtrkesT" 


KD 


6834 


sta imsid -+- 1 .y ; 


f i ter cutoff 


FJ 


127 .asc VinGsynCgatE" 


00 


6836 


sta $d40l,y ; 


frequency 


KF 


128 asc "atldeCsuS" 


OK 


6838 


rts 




EK 


129 .asc "reLresoNvoLfilT- 


OC 


6840; 






OE 


130 .asc "IrdofFtrdoNhP" 


JN 


6842 bitnyb 


Ida jmsid,y ; 


set and clear 


BO 


131 .asc "bPIP' 


JH 


6844 


and prtect ; 


bit in sid 


JF 


61 7. asc "potXpotY" 


DL 


6846 


era newval ; 


.and imsid 


PH 


618, asc "osc\,byte$b3;asc("3")-i-$80 


DO 


6848 


sta imstd,y ; 


; registers 


BF 


619 asc "env': .byte$b3 


LK 


6850 


sta $d400,y : 


.depending on 


FG 


1123 ,wordc1esi-1,frq-1.puwi-1,fifre-1 


OH 


6852 


rts 


;newvaf 


NM 


1124 .wordadwav-1,adwv1-1,adwv2-1 


MD 


6854; 






JL 


1125 ,wofd nuwv4-1,nuwav-1,nuwv1-1 


CO 


6856 i Iqty 


jmp $b248 


;il quant error 


HI 


1126 word nuwv2-1,nuwv3-1,wavbit-1 


AE 


6858; 






AE 


1 1 27 .word wvbitl -1 .wvbtl2-1 ,wvbJI3-1 


KC 


6860 sidbyt 


da #<bitnyb 


;set up to 


PP 


1 128 .word assel-1 ,drset-1 ,asl1 -1 


00 


6862 


sta sbyt3 + 1 


;enter parameters. 


PH 


1 1 29 word drtl -1 ,rvset-1 ,rvt1 -1 ,filt-1 


ON 


6864 


Ida #>bitnyb 


;put bitnyb instead 


LA 


1 1 30 .word third-1 ,Thrd1 -1 ,flsel-1 


AK ' 


6866 


sta sbyt3 + 2 


; of dummy 


JA 


1131 .wordflt1-1,flt2-1 


DK 


6868 Sbytl 


sty volndx 


;reg offset 


BE 


1617 .word pots-1,plsl-1 


JA 


6870 


tdx #3 


; OOP counter 


KL 


1618.wordpts2-l 


PO 


6872 sbyt2 


Isr voictr 


;check voice 


ML 


1619.wordpts3~1 


NL 


6874 


bcc sbyt4 


;don't change voice 


FH 


6746 getvoi jsr $b79e ;get byte in .x 


DC 


6876 


Idy voindx 


;getreg. offset 


CE 


6748 cpx #8 ;maximum 7for 


GD 


6878 sbyt3 


jsr $0000 


;dif ect or bitnyb 


CN 


1 

6750 bos ilfqty ;voice parameter 


MD 


6880 sbyt4 


Ida voindx 




FD 


6752 sEx voictr 


Fl 


6882 


etc 


;add 7 to register 


OE 


6754 rts 


HH 


6884 


adc #7 


;offset for next 


KN 


6756; 


OE 


6886 


sta voindx 


;voiGe 


KM 


6758getwrd jsr $aefd ; 


check comma 


PJ 


6888 


dex 




PG 


6760 jsr $ad8a ; 


get two bytes 


HK 


6890 


bne sbyt2 


;do another voice 


CJ 


6762 jsr $b7t7 ; 


convert to int 


IN 


6892 


rts 




ML 


6764 Ida #<direct ; 


.address of direct 


EG 


6894; 






KB 


6766 sta sbytS + 1 ; 


.routine replaces 


CA 


6896eormsk txa 


;.a is #$ff 


NK 


6768 da #>direct ; 


;dummy in sbytl 


ID 


6898 


eor #$ff 


.complement of .x 


PE 


6770 sta sbyt3 + 2 


;subroutine 


CJ 


6900 emski 


stx newvai 




AG 


6772 rts 


LI 


6902 


sta prtect 




MO 


6774; 


EO 


6904 


rts 




KP 


6776 lonyb jsr $aefd 


;check comma 


AH 


6906: 






FD 


6778lriyb1 jsr $b79e 


;get bytein ,x 


KF 


6908 desi 


dy #$19 


;clears sid chip 


ON 


6780 cpx #$10 


;maximum value of 


MB 


6910 


Ida i^O 


;and its image 


AD 


6782 bcs illqly 


;one nybble is 15 


BF 


6912csid1 


sta imsid, y 




MG 


6784 rts 


DE 


6914 


sta $d400,y 




IP 


6786; 


PL 


6916 


dey 




OC 


678B hinyb jsr $aefd ;check comma 


PK 


6918 


bpl csidl 




HO 


6790 hnybl jsr Inybl ;get nybble 


EP 


6920 


rts 




MD 


6792 txa 


Al 


6922; 






GH 


6794 ast ;convert to 


DE 


6924 frq 


jsr getvoi 


; frequency 


JJ 


6796 asl ;high nybbe 


DO 


6926 


jsr getwrd 


;getvoice(s)and 


JD 


6798 asl 


CB 


6928 


Idy #0 


;frequency, reg 


LD 


6800 asl 


F 


6930 


jmp sbytl 


;enler frequency 


NF 


6802 tax 


Kl 


6932; 






f tiwH 


onsQcfor 15 


fc 
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BG 


6934 puwi 


jsr getvoi 


; pulse width 


GG 


7064 


jsr hinyb 


;get atl/sus value 




NO 


6936 


jsr getwrd 


;get VQice(s) and 


JF 


7066 


da #$0f 


; protect decay & 




PH 


6938 


Ida $15 


; pulse width 


AC 


7068 


bne drl2 


; release nybble 




JE 


6940 


cmp#$10 


; maximum $0fff 


EB 


7070; 








GM 


6942 


bcs illqty 




JG 


7072 drset 


dy #5 


; decay 




OP 


6944 


Idy #2 


; register 2 


NH 


7074 


.byte $2c 






IB 


6946 


jmp sbytl 


;enter pulse width 


Al 


7076 drti 


Idy #6 


; release 




KJ 


6948; 






NE 


7078 


sty voindx 


;tor indexed addr. 




EL 


6950 fif re 


jsr $ad8a 


; cutoff frequency 


JH 


7080 


jsr getvoi 


;getvoice(s) 




EL 


6952 


jsr $b7f7 


;conv to integer 


NO 


7082 


jsr lonyb 


;get dec/re value 




BH 


6954 


Idx #0 




EK 


7084 


da #$f0 


;protectatt/sus 




DD 


6956 ffrel 


asl $14 


;rotate5bitsof 


IL 


7086 drt2 


jsr emski 






HO 


6958 


ro $15 


;o byte into hi 


DH 


7088 


dy voindx 






NG 


6960 


bcs illqty 


;maximum $07ff 


Dl 


7090 


jmp sidbyt 


; enter va ues 




OA 


6962 


inx 




KC 


7092; 








HJ 


6964 


cpx #5 




BN 


7094 rvset 


jsr hnybl 


;resonance 




FK 


6966 


bne ffrel 


;another bit to go 


OH 


7096 


Idy #$17 


;regtster23 




BH 


6968 ftre2 


isr $14 


;putthe3 bits in 


PC 


7098 


Ida #$0f 


;protectlo nybble 




ME 


6970 


dex 


:sb back in their 


AA 


7100 


bne rvl2 






10 


6972 


bne ffre2 


;proper position 


LI 


7102 rvtl 


jsr Inybl 


;volume 




FH 


6974 


Idy #$15 


:reg. 24 , filter 


Bl 


7104 


dy #$18 


; register 24 




GF 


6976 


jmp direct 


;culoff frequency 


88 


7106 


da #$f0 


;protect hi nybble 




IL 


6978; 






GP 


7108 rvt2 


jsr emski 






CB 


6980 adwav 


dx #$40 


;add pulse 


CM 


7110 


jmp bitnyb 


; enter values 




BC 


6982 


. byte $2c 




OD 


7112; 








AF 


6984 adwvl 


dx #$20 


;add sawtooth 


NC 


, 711 4 tilt 


jsr Inybl 


;f 1 ter 




FC 


6986 


.byte$2c 




EM 


7116 


jsr eormsk 






IB 


6988 adwv2 


dx #$10 


;add triang e 


OM 


7118 


jsr getbit 


;get off or on 




KL 


6990 


Ida #$7f 


;protect whole reg 


Kl 


7120 


dy #$17 


;register23 




FL 


6992 


bne gowave 


; except noise 


OM 


7122 


jmp bitnyb 


; enter values 




IM 


6994; 






KE 


7124; 








HK 


6996 nuwav 


Idx #$80 


;set noise 


AH 


7126 third 


dx #$80 


;third voice off 




BD 


6998 


.byte $2c 




DL 


7128 


■byte $2c 






II 


7000 nuwvl 


dx #$40 


;set pu se 


ON 


7130thrd1 


dx #0 


;third voice on 




FD 


7002 


■byte $2c 




BF 


7132 


da #$7f 


;protect ow bits 




NP 


7004 nuwv2 


Idx #$20 


;set sawtooth 


PJ 


7134 


dy #$18 


; register 24 




JD 


7006 


.byte$2c 




EC 


7136 


bne rvt2 






FM 


7008 nuwv3 


dx #$10 


;set triangle 


IF 


7138; 








ND 


7010 


, byte $2c 




CM 


7140flset 


Idx #$40 


;high pass filter 




OB 


7012nuwv4 


dx #0 


;c ear waveform 


BM 


7142 


■byte $2c 






BO 


7014 


Ida #$0f 




FK 


7144 fitl 


dx #$20 


;band pass filter 




ON 


7016; 






! FM 


7146 


.byte $2c 






PM 


7018 gowave jsr emski 


;store values 


II 


7148flt2 


Idx #$10 


;low pass filter 




ND 


7020 


jsr getvoi 


;get votce(s) 


GO 


7150 


jsr eormsk 






IF 


7022 


Idy #4 


; register 4 


FO 


7152 


jsr gbitl 


;skip check comma 




BM 


7024 


jmp sidbyt 


; enter waveform 


DL 


7154 


dy #$18 


;register 24 







7026; 






EK 


7156 


jmp bitnyb 


;enter value 




MM 


7028 wavbit 


Idx m 


;test 


MG 


7158; 








BF 


7030 


.byte $2c 




Kl 


7160 pots 


Idx #0 


.potx reg offset 




ME 


7032 wvbiti 


Idx #4 


;ring modulation 


FN 


7162 


. byte $2c 






FF 


7034 


.byte $2c 




MH 


7164 ptsi 


Idx #1 


; poty reg offset 




ML 


7036 wvbit2 


Idx #2 


; synchronization 


JN 


7166 


.byte $2c 






JF 


7038 


.byte $2c 




PC 


7168 pts2 


Idx #2 


;osc3 reg offset 




ED 


7040 wvbit3 


Idx #1 


;gate 


NN 


7170 


-byte $2c 






KH 


7042 


jsf eormsk 




PC 


7172 pts3 


Idx #3 


;env3 reg offset 




FF 


7044 


jsr getvoi 


;get voice(s) 


PC 


7174 


Idy $d419,x 


;get vaue in reg. 




AE 


7046 


jsr getbit 


;off or on 


NA 


7176 


jmp $b3a2 


;storetofac#1 




LN 


7048 


Idy #4 




Al 


7178; 








GN 


7050 


jmp sidbyt 


;enter parameter 


HN 


7180imsid 


♦ -• + $19 






CA 


7052; 






NB 


7182 newva 


• -• + 1 






CC 


7054 asset 


Idy #5 


; attack 


JD 


7 1 84 prtect 


• = • + 1 






LG 


7056 


byte $2c 




JO 


7186 voindx 


• -• + 1 






CM 


7058 asti 


Idy #6 


;sustain 


oc' 


7188voiclr 


• = • + 1 






LO 
HG 


7060 
7062 


sty voindx 
jsr getvoi 


;for indexed addr. 
;getvoice(s) 


Ml 


7190; 
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The Atari 520ST 
An Overview 



Dave Gzik 
Burlington, Ontario 
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This ooervtew should in no way convey any indication that The 
Transactor is starting coverage of Atari computers. We fully 
intend to remain a Commodore exclusive journal, at least for 
the foreseeable future. Quite simply, we were interested in the 
information presented here and thought you might be too. 
M.Ed 

For the past year or so Apple has been making inroads into Ihe 
business market with a computer so easy to use, all you have to 
do is point and click. 

Well up to now they have had no competition to speak of 
against the Macintosh computer. Atari offers the solution to the 
people who dreamed of owning a Mac but were discouraged at 
the hefly price tag attached to it. 

Presenting. , . the Atari 520 ST! Comparable in every way to 
the Mac except the price. 

The following will give you some idea of the features the 520 ST 
has to offer you. 

Facts & Figures 

The 520 ST computer is a GEM (Graphics Environment Man- 
ager) based 1 6/32 bit computer system that can facilitate many 
requirements for business, education, home, and specialty 
purposes. 

The TOS operating system supports user interaction via a 
mouse controller to perform operations. These operations are 



shown on screen by ICONS which are graphic representations 
of operating system functions. Dropdown menus and windows 
allow for easier identification of an operation to be selected. 

The 520 ST is comprised of four systems which make up its 
architecture. The four systems are: 



graphics 
subsystem 












music 
subsystem 
















1 
1 








main 
system 


1 
1 


























device 








s 


ubsysle 
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Main System 

The 520 ST computer is based on the Motorola 8 MHz 16 bit 
data/24 bit address microprocessor unit with an internal 32 bit 
architecture. This processor features eight 32 bit data registers, 
nine 32 bit address registers, a 16 megabyte direct addressing 
range. 14 addressing modes, memory mapped I/O (input/ 
output), five data types, and a 56 mnemonic instruction set. 
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Theniain system contains 16 Kbytes of internal ROM (Read 
Only Memory) that contains the boot program for the operating 
system. The unit can accommodate an additional 1 28 Kbytes of 
ROM in cartridge form. 

There are 512 Kbytes of ft^M (Random Access Memory) on 
board and available on power up. 

The main system also supports a direct memory access port 
that allows data transmission at a rate of L33 megabytes/ 
second. This port will also serve as the Hard Disk interface. 



Graphics Subsystem 

The graphics subsystem of the ST possesses three modes of 
video configuration: 320 by 200 resolution with 4 planes, 640 
by 200 resolution with 2 planes, and 640 by 400 resolution with 
1 plane, {a plane represents the square number of colour 
palettes available) A sixteen word colour lookup palelle is 
provided with nine bits of colour per entry. The sixteen colour 
palette registers contain three bits of red, green, and blue 
aligned on low nibble boundanes. Eight levels of red. green, 
and blue provide 5 1 2 maximum possible colours. 

In low resolution 4 plane mode, all 16 palette colours are 
available, while in medium resolution 2 plane mode only the 
first four palette entries are accessible. In high resolution 1 
plane mode the colour palette is bypassed altogether and is 
provided with an inverter for inverse video. Either the bit is on 
(white) or off (black). 

The video display area uses 32 Kbytes that is mapped directly 
into IWM and has an identical bit, byte, and word relationship 
with the physical screen display. 



The MIDI bus permits up to a maximum of \ 6 channels in one 
of three addressing modes, OMNI mode allows all units ad- 
dressed at once, POLY mode allows each unit addressed indi- 
vidually, and MONO which allows each unit voice addressed 
individually. MIDI information is communicated by five types 
of data along five data lines. 

Device Subsystem 

The device subsystem provides access to the ST via an intelli- 
gent keyboard {separate microprocessor controlled}, and a two 
button mouse controller. The available ports for Input/Output 
on the ST are: 

• 2 'D' style controller ports 

• MID! IN / MIDI OUT 

• RGB/Monochrome monitor signal output 

• Centronics Parallel 

• RS-232 Serial 

• Floppy Disk Serial 

• Direct Memory Access/Hard Disk interface 

• Direct Memory Expansion (ROM) 

The monitor display port provides signal lines for either low 
resolution RGB, medium resolution RGB, or high resolution 
monochrome output. 

A Standard Centronics Parallel port provides the ability to 
interface any compatible device directly to the ST without 
conversion interfaces. The ST RS-232 interface provides volt- 
age level synchronous or asynchronous serial communication. 
The five standard RS-232C handshake control signals are 
supported allowing any compatible device to be connected 
without conversion interfaces. The ST RS-232 can support data 
transfer rates from 50 baud to 19.2 Kbaud, 



Music Subsystem 

The Atari ST Programmable Sound Generator (PSG) produces 
music synthesis, sound effects, and audio feedback. With an 
applied clock input of 2 MHz, this system is capable of produc- 
ing frequency response from 30 Hz to 125 KHz. The sound 
system supports 3 voices with programmable envelope genera- 
tor registers. The PSG three sound channel output is mixed 
together and sent out in a non amplified signal that can be 
received by a television, monitor speaker, or other amplifier 
devices. (The PSG has built-in digital to analog converters). 

The Musical Instrument Digital Interface (MIDI) ports allow the 
ST to integrate with music synthesizers, sequencers, drum 
boxes, and other devices that support the MIDI interface. High 
speed (31-25 Kbaud} serial communications of keyboard and 
program information is provided by two ports, MIDI OUT and 
MIDI IN. 



The floppy disk port is setup to support ATARI three and half 
inch disk drives. Communication is achieved in a serial fashion 
through an Atari designed serial interface cable. The Hard Disk 
port supports a dual function. This port allows direct memory 
access (DMA) at 1,33 Mbytes/ second. The communication 
method is parallel with a high speed throughput. Both disk 
ports contain on board controllers for their respective compo- 
nents. 

The expansion port allows adding an additional 128 Kbytes of 
ROM, This cartridge based ROM can be utilized for application 
software, plug in languages, or as additional operating system 
information. 

Well, thai should be enough to digest for now. The newest Atari 
is the 520 ST available to consumers at a price that is one third 
that of the Mac. The 520 ST is packaged with a three and half 
inch microfloppy drive and a twelve-inch monochrome high 
resolution monitor. Also part of the package is the mouse 
controller, LOGO, BASIC, and the TOS operating system disk. 
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Doing Away With Drama 

Chris Zamara. Technical Editor 



The second-rate actor staggers across the stage in his big death 
scene, gesticulating and gasping while taking out every obsta- 
cle in his path. This melodramatic spectacle is such a cliche 
that the only time you'll ever see it on stage or screen is 
probably as a parody. Why. then, is the computer-equivalent 
scene being played by almost every commercial software 
package on the market? 

When you try to exit a program and go back to good ol" BASIC, 
why must you be subjected to colour flashes, cleared screens, 
and a cold restart? That's what you'll get with most word- 
processors, games, etc, providing they even have some means 
of exiling. Many don't. Turning a computer OFF then ON again 
just to try out something in BASIC or load in a new program (or 
to escape from the depths of some relentless mode!) is just a bit 
too vulgar to take. Like the over-achieving actor knocking 
down stage props, both of these escape options also tend to kill 
any data (or at least kill vital pointers) which have the misfor- 
tune of living in RAM at the time of program-abort. Due lo the 
snail-like haste of the 1541 drive and hence the memory- 
intensive nature of most C-64 software, a cold start can leave 
you very cold indeed. 

By insisting on taking complete control of the machine and 
cold-starting on exit, a program makes life much more difficult 
for itself than it has to, A program in that position assumes a lot 
of responsibility and becomes inadequate unless it gives the 
user options for his every whim — display disk catalog, allow 
sending of disk commands, provide a calculator or expression 
evaluator mode, etc. Otherwise, you gel the dying-of-thirsl- 
in-the-middle-of-the-ocean syndrome, sitting in front of your 
perfectly good computer, but not being able to calculate any- 
thing mathematical because you happen to be running a word- 
processor at the lime. 

1 may be an incorrigible programmer at heart, but the only 
packages that gel much use on my system are ones that I wrote 
myself, or ones written by other programmers, that don't give 
me extra drama for the money. Consider the terminal program 
for the 8032 that 1 use. It doesn't have a disk catalog function, 
but 1 don't care, because when I select the "Exit to BASIC" 
function, it simply says READY. That's it. no flashing, beeping, 
memory-clearing, or leaving a trail of broken props before 
exiting the stage. Now 1 can type CATALOG, do a calculation, or 
just play around in BASIC direct mode until I type RUN again to 
re-start the terminal program, Tm still connected with the host 
computer, and no drama distracts me irom the task at hand. 
Give me a terminal program with a million extra features, and 1 
don't want it unless it gives me elegant, non-destructive entry 
and exit. (While the argument that program exits must be 
destructive for software protection reasons could be brought up 
here, 1 think protection is even worse than memory-clearing. 
But that's another editorial.) 



Unfortunately, program exits aren't the only over-dramatized 
event in software operation. Program entry or start-up is just as 
bad. How do the programmers dare to assume how 1 like my 
border, background, and character colours? I can set them up 
perfectly wel! myself, thank you. Changing colours is forgivable 
on some packages like games, but how about something like a 
disk copy utility? Why should you have to re-set all your 
colours after copying a tew files just because some programmer 
somewhere liked pink letters on a green screen? (Doesn't 
matter, if he was like most programmers, the copy utility will 
probably cold-start after it's finished anyway, treating you to 
Commodore's wonderful blue-on-blue motif,) 

You're probably saying to yourself, "Well what does this whin- 
ing idiot want, anyway? A computer can only run one program 
at a time." Well, if you are, stop insulting me and I'll lell you. 
Having dabbled outside of the world of Commodore, I've seen 
some well-written (and expensive) packages running on IBM 
PCs. Dbase 11 is a good example — an incredibly powerful 
database management system with its own high-level lan- 
guage. You would expect such a system to completely lake over 
the PC, but on start-up. it doesn't even clear the screen. When 
you bring it in (by simply typing "DBASE" from PC-DOS), the 
prompt just comes back in about a second, and the only clue 
that youVe now in the Dbase command language instead of the 
operating system is the appearance of the prompt; a period 
instead of a greater-than. If Dbase ever falls short in the system 
command department, eg. examining disk files, just type QUIT 
and you get the PC-DOS prompt back. No files or data are lost, 
everything is saved, and Dbase retains its composure as it dies, 
much like an unwary victim succumbing to Mr. Spock's myste- 
rious Vulcan grip. You can even automatically invoke Dbase 
from a batch file and exit again. The lack of drama here seems 
stark, but ah. so elegant! And so powerful! 

As a computer-idealist, I look forward to the day when I can 
just call in programs one by one, flitting from terminal emulator 
to word-processor without any jolts lo my sense of elegance. 
Programs which greedily change system parameters and vec- 
tors to the point where the only way back to normal is a cold 
start have no place in my computer- Utopia. Programs must 
learn to live at peace with their environment as well as 
themselves. Since a computer cold-start is the equivalent of a 
nuclear holocaust on earth which wipes out all life, it's obvious 
that most commercial software hasn't learned yet. Like the 
melodramatic actor in his big scene, the dramatic program is 
somewhat embarrassing and awkward, as well as being a 
hindrance to the whole production, A change in direction is 
obviously needed here; let s not put software authors in the 
same company as bad actors. 
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C Power - A Users Review 



Richard Evers, Editor 



V makes you work to learn, but rewords you generously. 



C Power: It seems like a rather odd name for a software package. But if 
you can get past the stigma of its odd tailing card, you will liave 
discovered a friend for life. Written by Brian Hilchie. and distributed 
by Pro-Line Software, C Power is a C Language Edilor/Compiler 
System for the Commodore 64. Wilh thai quick introduction out of the 
way, a little bit of C trivia is in order. 

The C Language seems to be getting alot of air play ihese days. Major 
movies are programming their special effects in C (Star Wars, Star 
Trek), major software developers are writing Iheir code in C (Micro- 
soft, Visicorp), and simply put. it seems to the language of the future- 
Most of the Universities have been bitten by the C bug, with Univer- 
sity and College students everywhere communicating in C. It's kind of 
like Valley speak, with class. 

C Power allows the Commodore 64 user to write and compile in C. A 
simple statement to make, but not so simple when you get down to it. 
Unlike so many languages, C's secrets do not magically unravel with 
little effort. C makes you work to learn, but rewards you generously 
when you succeed. The true power of C lies in its relative simplicity, 
which seems to be anything but the truth at first glance. As time goes 
by, your awkward attempts at writing in C will start to pan out. But 
don't blame il entirely on the language. Learning a new language and 
a new system all at the same time can be rather frustrating. Time and 
perseverance seem to be the only way to conquer the first time blues. 

The complete package as supplied by Pro-Line comes with one C 

Power diskette, one users guide, and one terrific book, C Primer Plus. 
The price ioi the package is $129.95 Canadian or $99.95 US. 

The diskette supplied is a novelty. It is on the standard 1541/MSD 
format, but the trick is that both sides are used. In total, about 173 files 
are included on this disk. As stated in the users guide, only the 
compiler is copy protected. Everything else can be copied, and should 
be if you intend to actually use iL 

When 1 first started writing this review, difficulties arose regarding the 
users manual. In simple terms, it was awful. Although it did contain 
some crilica! information deep within, it also had problems. Sections 
were missing, references to wrong pages were in plenty, and the 
presentation was poor. In despair. 1 called up Pro-Line and asked 
them if a better manual had been written. It turns out that my copy of 
the program was ancient (2 months} A new and improved 3rd 
printing had been made of the manual, and a super improved version 
of the program disk had also come about. Needless to say, my C Power 
misgivings were laid to rest. C Power became worthy of a review. 

Into The Unknown 

The C Language, as stated earlier, will not welcome you with open 
arms. More than likely it will try lo ignore you and hope you 
disappear. To get acceptance into the C club, some heavy duty reading 
and computer bashing will be required. The book, C Primer Plus, as 
supplied with the C Power package, is the ticket required to start to 
understand C. if you have the perseverance. Within its 500 pages plus, 
beginning to advanced concepts of programming in C are discussed. 
The authors went out of their way to bring the reader up through the 
ranks of C programming, inasshortof lime as possible. There is only 
one problem with the book. It has been written with the UNIX 
operating system in mind, with allowances for the MS DOS and CP/ 



¥-86 environments. The Commodore 64 shares little with any of 
these systems. It is simply not a UNIX type machine, therefore a few C 
concepts covered in the book are not applicable to the Commodore 
64. All non-applicablesectionsand operations are discussed briefly in 
the C Power users guide. 

Once you have stuck your nose in the C Primer for a short while, it 
would be best if you actually tried out the C Power package. Before 
doing so, read the users manual front to back. Unlike normal software 
packages, it expects you to know what you are doing. In order for you 
to generate true object of C code, you have to go through at least three 
separate stages with the system. The first is the editor, similar to a 
wordprocessor in the functions it performs. Once the editing work is 
completed, ie. you have written your code, a syntax checker is 
available for use Jf your syntax is out in any way, this little beauty will 
pick it up and let you know. A nice touch- 
Once you are satisfied that everything will be just right, the compiler 
lies in wait. As stated earlier, the compiler is the only program on disk 
that is protected. This is rather unfortunate, but is also a fact of life to 
live with as long as there are package pirates lurking about. 

To continue, the compiler is a dream once you get it going. Even with 
the limitations of the 1541, it's not too slow. Also, as it compiles, you 
are able to see the source, pulling in the library routines as it goes 
along. A pretty impressive treat. 

Once the compilation is complete, one more stage is required before 
you can tall it executable object. You have to link all the code 
together. This means that you have to place your code plus the 
applicable library routines together to make one cohesive unit. The 
linker makes this part quitesimple.Ifyou want to make your code run 
in conjunction with the shell program supplied, the linker will lake 
care of It. If you want true object that will run independently, this can 
also be arranged. Your code can be placed anywhere you want in 
memory, or can execute at the start of Basic, along with an applicable 
Basic line - SYS statement to get it going. It seems like quite a few 
stages to go through for object, but it really is worth it. It is true 6502 
object, not P code. 

When writing in C using C Power, you will probably notice a strange 
happening. The execution time of your code will vary depending on 
how you write your source. The C compiler supplied is not an 
optimizing compiler, therefore, if you do not plan your program 
properly, redundant code will be the result. The only cure for this is to 
become fluent in C. and the concepts behind it. Read the C Primer, 
work with the system, and if your head is screwed on properly, good 
clean code will be the result. Remember, becoming fluent in C could 
open many doors in the future. 

In Conclusion 

in my opinion, the C Power system is a worthy investment. It may not 
l>e as fun as Comal, or as widely known as Basic, but it has more 
power than most realise. Due to this implementation of C by Brian 
Hilche. the source that you write on your 64 could be adapted to 
virtually any computer system supporting a C compiler, without major 
problems. Although the Commodore 64 does not allow for a true 
implementation of C, it's close enough to produce virtually transport- 
able source. Without further argument, C Power makes the grade. 
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COMMODORE 1 28 ■ 
Keywords and Tokens 



Jim Butterf ield 
Toronto, Ontario 



When the Commodore 1 28 is in the ^^64" mode, it behaves exactly the 
same as a 64 , . . in a sense, it is a 64, But when you select "128" mode, 
you have a new machine with much richer Basic. A good part of the 
machine is still familiar from the world of 64 - things such as 
POKE53281,0 still set the background color of the machine, for exam- 
ple. But Basic takes on a new, upward-compatible, set of keywords. 

The average programmer may not care that keywords are changed into 
single-byte '^tokens". In other words, a keyword such as INPUT is stored 
within the computer's memory as a numeric value of 133 - one byte 
represents the whole word. When you say LIST, the token is unfolded so 
that you see ttie original keyword. 

The fact that each keyword has a specihc token makes it convenient to 
give the keywords as a list. But there's a more important question: that of 
compatibility, if you have a program from a PET or a B-128 computer Jt 
may have the right keywords, but the wrong token. As an example: if 
you use the command SCRATCH within a program on a PET 4.0 
machine, the command will be stored (in memory or on a disk PRG file) 
as a value of 21 7 (hexadecimal 09). If you should load this program into 
the Commodore 1 28, the token comes in unchanged ... but in the new 
machine, 217 stands for the keyword TROFF (trace off). The keyword 
SCRATCH exists in the \ 28. but it has a token value of 242 (hex F2). 

This means that you may take a perfectly good PET/CBM 4.0 program, 
load it into the Commodore 128, and get nonsense. There are ways 
around this problem, but the first step is to know it can happen, and 
watch for it. By the way, this can't happen with programs being 
transferred from the Commodore 64 to the 128, since there is "upward 
compatibility". But if you go the other way, loading a 128 program which 
uses advanced commands into the 64 (or into a 128 in 64 mode), you'll 
see strange things in the program listing. 

This keyword list allows me to comment briefly on the various keywords 
as they appear. This isn't a complete manual, but may help you place the 
newcommands- 

Key values are given in hexadecimal only. Advanced readers will notice 
that "double byte" tokens are used; this, too, is new. The double byte - 
the first byte always set to $FE or decimal 254 - also allows you to 
implement your own keywords if you wish- 



Fully 64 compatible: 



80 END 


A6 SPC( 


81 FOR 


A7 THEN 


82 NEXT 


A8 NOT 


83 DATA 


A9 STEP 


84 NPUT# 


AA + 


85 INPUT 


AB - 


86 DM 


AC • 


87 READ 


AD / 


88 LET 


AE (POWER) 


89 GOTO 


AF AND 


8A RUN 


BO OR 


8B F 


B1 > 


80 RESTORE 


82 = 


80 GOSUB 


B3 < 


8E RETURN 


B4 SGN 


8F REM 


B5 INT 


90 STOP 


B6 ABS 


91 ON 


B7 USR 


92 WAT 


B8 FRE 


93 LOAD 


B9 POS 


94 SAVE 


BA SOR 


95 VERFY 


BB RND 


96 DEF 


BC LOG 


97 POKE 


BD EXP 


98 PRINT# 


BE COS 


99 PR NT 


BE SN 


9A CONT 


CO TAN 


9B LST 


CI ATN 


90 CLR 


C2 PEEK 


9D CMD 


03 LEN 


9E SYS 


C4 STR$ 


9F OPEN 


05 VAL 


AO CLOSE 


06 ASC 


A1 GET 


07 CHR$ 


A2 NEW 


08 LEFTS 


A3 TAB{ 


C9 RGHTS 


A4 TO 


CA MD$ 


A5 FN 


CB GO 
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New functions: 
















F5 


RENAME 


- change disk fi e name 


CC RGRQ 


- return graphics mode 


F6 


BACKUP 


- dua disk backup 


CD RCLRO 


- return color value 


F7 


DELETE 


- eiminate program ines 


CE 02 POT 


- return selected paddle value 


F8 


RENUMBER - 


■ renumber program ines 


CE 03 BUMP 


- return sprite co ision data 


F9 


KEY 


- show or redefine function keys 


CE 04 PEN 


- return tght pen coordinates 


FA 


MOM TOR - 


- go to machine anguage monitor 


CE 05 RSPPOS 


- return sprite speed & position 










CE 06 RSPRTE 


- return sprite characteristcs 










CE 07 RSPCOLOR - return sprite multicolor va ues 


Language elements: 


CE 08 XOR 


- return exc usive OR 










CE 09 RWINDOW return size of window 


FB 


USING 


-part of PRINT US NG 


CE OA PONTEF 


I - return address of varJab e 


FC 


UNTL 


-part of LOOP 


OF JOYO 


- return oystick status 


FD 


WHILE 


■ part of DO 


DO RDOTQ 


- return va ues of pixel cursor 










D1 DECQ 


- return decima value of hex string 










D2 HEX$0 


- return hex string 


New rnmmands: 




D3 ERR${) 


- return error strng 










D4 NSTR 


- return siring match position 


FE 


02 


BANK 


-set memory bank 






FE 


03 


FLTER 


-define sound titer 






FE 


04 


PLAY 


- p ay musica sequence 


New commands: 




FE 


05 


TEMPO 


- define music speed 






FE 


06 


MOVSPR 


- position, move sprite 


D5 ELSE 


- part of F. , , 


FE 


07 


SPRITE 


- manipulate sprite data 


D6 RESUME 


- restart after TRAP 


FE 


08 


SPRCOLOR - ad ust sprite muticoors 


D7 TRAP 


- detect error 


FE 


09 


RREG 


- assign sys reg sters to Basic variab ff 


D8 TRON 


- turn trace on 


FE 


OA 


ENVELOPE - define instrument 


D9 TROFF 


-turn trace off 


FE 


OB 


SLEEP 


- pause for specified time 


DA SOUND 


- output a sound 


FE 


DC 


CATALOG 


- show directory 


DB VOL 


- set sound eve 


FE 


OD 


DOPEN 


- disk file open 


DC AUTO 


- enab e/disable auto 1 ne numbering 


FE 


OE 


APPEND 


- add to f i e 


DD PUDEF 


- define PRINT USING symbo s 


FE 


OF 


DOLOSE 


- disk fi e c ose 


DE GRAPH C 


-set graphics mode 


FE 


10 


BSAVE 


- binary save 


DF PAINT 


- fi area with co or 


FE 


11 


BLOAD 


- binary load 


EO CHAR 


-display characters 


FE 


12 


RECORD 


- position re ative fi e 


El BOX 


- draw box 


FE 


13 


CONCAT 


- combine two data fi es 


E2 CRCLE 


- draw circe 


FE 


14 


DVER FY 


- disk verify 


E3 GSHAPE 


- display screen shape 


FE 


15 


DCLEAR 


- c ear all disk files 


E4 SSHAPE 


- save screen shape 


FE 


16 


SPRSAV 


-store sprite string 


E5 DRAW 


- draw dots and lines 


FE 


17 


COLLISION - sprite co ision hand er 


E6 LOCATE 


- pace pixe cursor 


FE 


18 


BEGN 


- start program bock 


E7 COLOR 


- define scieen CO or 


FE 


19 


BEND 


- end program b ock 


E8 SCNCLR 


- clear screen 


FE 


1A 


WINDOW 


- define screen window 


E9 SCALE 


- ad ust graphics sea ing 


FE 


IB 


BOOT 


- load & run fie 


EA HELP 


- highlight error statement 


FE 


1C 


WDTH 


- set graphic line w dth 


EB DO 


- start a repeat block 


FE 


ID 


SPRDEF 


- enter sprite definition mode 


EC LOOP 


- end a repeat b ock 


FE 


IE 


QUIT 


- not imp emented 


ED EXT 


- exit a repeat b ock 


FE 


IF 


STASH 


- save to DRAM 


EE D RECTORY 


- show disk directory 


FE 


20 




not used 


EF DSAVE 


- save to disk 


FE 


21 


FETCH 


- get data from DRAM 


FO DLOAD 


- oad from disk 


FE 


22 




not used 


F1 HEADER 


- format or clear a disk 


FE 


23 


SWAP 


- exchange with DRAM 


F2 SCRATCH 


- remove fi e from disk 


FE 


24 


OFF 


- not implemented 


F3 COLLECT 


- disk bock co ect 


FE 


25 


FAST 


- run at 2mhz (80 co only) 


F4 COPY 


-copy disk file 


FE 


26 


SLOW 


- run at 1 mhz 
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From Apple To 
Commodore And Back 



Robert Adler 
Montreal, Quebec 



If you are like the many other computer owners who have 
mastered or at leas! de-mystified the BASIC which was in- 
cluded in your machine, then perhaps you would like to add a 
little more challenge to your BASIC programming. 

If you are a Commodore owner, then BASIC 2.0 is what you are 
familiar with. In the past, you may have passed up good 
programs in a magazine or book that did not specialize in the 
computer which you use. You therefore probably missed out 
on some very interesting programs. No longer will you have to 
pass up those programs which were written for the computer 
which possesses the friendly name of the Apple. 

The scope of this article does not include delving into compli- 
cated matters which may require special techniques, com- 
mands or Machine Language. Even so. we will accomplish a 
great deal with BASIC 2.0, better known as the BASIC of the 
Commodore 64, Vic-20, and PET computers. 

The first BASIC which was ever written for a microcomputer 
was Altair BASIC. !t was written by Microsoft founder, Bill 
Gates. It was actually the first piece of commercial software ever 
written for a personal computer. Out of that BASIC, which was 
later named Microsoft BASIC, grew other versions. Every com- 
pany which put out a micro seemed to have its own version. 

Two of these companies were Commodore and Apple, in 1977, 
Commodore introduced the PET 2001 computer. It had a tiny 
calculator type of keyboard, a nine-inch screen and a cassette 
drive all built into one unit- It had 8k of Random Access 
Memory (RAM), and a 16k BASIC in ROM. This was Commo- 
dore BASIC TO. The machine was later upgraded with an 
external cassette recorder, and provisions were made to the 
BASIC ROM to allow for connection of a disk drive. This was 
known as BASIC 2.0- 

When Commodore introduced the 8032 business computer 
and the 4032 personal computer, they added commands to 
their original BASIC. These new commands allowed easier 
usage of their disk drives. This was BASIC 4.0. When Commo- 
dore tried to make the cheapest home computer they could 
possibly make, they introduced the world to the VIC-20. With 
the VIC-20, Commodore returned to BASIC 2.0. 

In 1982, Commodore produced a computer which had almost 
thirteen times the amount of memory as the VIC-20, more 



advanced graphics and sound capabilities, but still the same 
BASIC 2.0 as was on their original PET computer. This was, of 
course, the Commodore 64. 

Here we are today, left with almost the same BASIC as was used 
nearly 10 years ago. Large advances in microcomputers have 
happened since then, Apple computers started out with a very 
plain BASIC, called Integer BASIC. It was then upgraded to 
Applesoft BASIC, Applesoft had many new commands which 
made it an extended BASIC. 

Over the years, thousands of programs were written using 
Applesoft BASIC. Many programs are still being written in this 
powerful version of BASIC. Because there are so many similari- 
ties between the two versions of BASIC, only the differences 
need to be discussed. For a complete listing of all of the 
keywords, consult the appropriate user's manual. 

We will start off with a simple command in Applesoft called 
'HOME'. This command is used to clear the screen and move 
the cursor to the top left corner of the screen. This is equivalent 
to the Commodore BASIC statement: 



print 



The word HOME on the Apple may clear the screen but a 
HOME (lowercase reverse 's') on Commodore computers, does 
exactly what if says and no more: it puts the cursor in the home 
position. 

The next keyword is just as easy, it is the Applesoft ^HTAB{x)' 
command where x is a number between and 39. H you 
remove the H and add a semicolon to the end. making it 
TAB(x); you will have the equivalent in Commodore BASIC. 

The next one is just a bit harder. It is the VTAB(x) command 
where x is a number between and 23 to specify the screen 
line where the next printed line will go. This is replaced by 
executing a PRINT statement like the following: 




print" 



sqqciqq 



The HOME character is followed by x number of CuRSoR down 
characters to produce the equivalent result. Piease take into 
consideration that the Commodore 64 has 25 vertical lines and 
the Apple has 24. 
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There is another way lo make the VTAB conversion. The different slill from fhe Applesoft GET A$. is the cursor thai 
second way is to use a subroutine such as this one: flashes while it waits for a keypress. 




4000 vl$=" ":d$ = 
4010forcu = 1 tovt 
4020vt$ = vl$ + d$ 
4030 next 

4040 print "0"^^^$; 
4050 v1 = 
4060 return 



To use this routine, you simple set the variable VT to the 
number within the brackets of the VTAB command, and GO- 
SUB 4000. The next line printed will appear on the proper 
vertically tabbed line. Please note that although your programs 
will be easier to read this way, the routine works considerably 
slower than the one liner discussed above. 



Note: A fost er woy t o implement VTAB: 
4000 dS = 

4010 print leflS(dS.ut); 
4020 return 
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Another easy conversion is the Applesoft INVERSE command. 
!n Applesoft programs, all the text which is PRINTed to the 
screen after an INVERSE command, is reversed until the BASIC 
encounters a NORMAL command, in Commodore BASIC, 
INVERSE is replaced by: 

print "B"; 

RVS is a special character achieved by simultaneously pressing 
the CTRL (pronounced Control) key and the numeric key 
marked 9 on the keyboard. To turn the reverse mode off, 
NORMAL is used in Applesoft while PRINT " <OFF> ^ ; is used 
in BASiC 2,0. The word OFF refers to pressing the CTRL and 
zero (0) keys together. 

There is one statement that you will find in Applesoft which 
looks the same but does not exactly act the same. To translate 
the Applesoft GET AS (read: get A' string where A' can be any 
valid variable), you must not have any other statements on the 
same line except for the following translation: 

10geta$:ifa$= ""tfienIO 

Of course the line number preceding the GET statement can be 
any line, but the same line number should be used after the 
keyword THEN. To get around having to always put this 
statement on its own line, and more closely simulate the 
Applesoft equivalent, use the following line instead: 

poke 198,0:wait 198,1 :geta$ 

This one is a lot better although it will only work on the 
Commodore 6^ and VlC-20. The only thing that remains to be 



Using two POKEs. you can simulate a flashing cursor. Insert the 
two POKEs between the GET A$ and the IF-THEN statement 
as in this example: 

10 get a$:poke 204,0:poke 207,0 
20ifa$="" tfienIO 

Possibly one of the easiest conversions would be the Applesoft 
CLEAR command which resets all variable pointers among 
other things. Take away the E and the A and you have the 
BASIC 2.0 command CLR. 

Those are about all the commands that can be easily translated. 
There are other commands which are to follow in different 
categories that can not as easily be translated. The first category 
is graphic commands. The following list shows you what to 
look for before you try converting an Applesoft graphic pro- 
gram. 

color = /hcolor = 

draw/xdraw 

gr/hgr/hgr2 

plot/xplot 

hiin/vlin 

scale = /rot = 

sfiload 

scrn/pdl 

The commands listed above are used for high and low resolu- 
tion point plotting, line and shape table drawing. Commands 
that are similar can be used on the C64/VIC 20 with graphic 
command extension packages. The graphic screen on the 
Apple is 280 by 192 in the HGR2 mode while the high 
resolution screen on the C64 is 320 by 200. This similarity 
makes it easy to use high resolution parameters from Applesoft 
programs on the Commodore 64, once a graphic package is 
acquired either commercially or from the public domain. 

The function PDL(x) where x is a number between 1 and 3 
returns a number between 1 and 255 depending on the 
rotation of the paddle. To read the paddle on the Commodore 
64 and get a result in the range of to 255, use the following 
formula: 

1 1 = peek(54297):p2 = peek(54298) 

The variable PI will show the results of paddle one in port one. 
P2 will show the results of paddle two in port one. 

If you encounter the Applesoft PDL(x) functions, you might also 
find a series of peeks to test for a fire button. To test for a fire 
button on the Commodore 64, use the following formulae: 

f 1 = peek(56320) and 1 6 : f2 = peek(5632 1 ) and 1 6 
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The variable Fl will return a zero when the fire button on 
paddle one in port one is being pressed. F2 will return a zero 
when the fire button on paddle two in port one is being 
pressed. Each will return a four when no button is being 
depressed. 

The next set of commands are the special editing and error 
trapping commands as shown in the following list. 

trace/ nolr ace 
onerr/resume 
del/pop 
speed = /flash 

The above commands can also be acquired by using an editing 
utility program, but are for the most part, not needed. The 
SPEED = and FLASH commands are keywords that just fancy 
things up a bit, and can easily be simulated in plain Commo- 
dore BASIC. 

Let's lake a short look at each one. The SPEED - command is 
usually used to slow down the speed of text output- At certain 
speeds, it can make text output resemble the speed at which 
300 baud modems communicate. To implement a similar 
command on Commodore computers, we can use a very short 
subroutine. The subroutine shown here will expect the string 
variable TX$ to be equal to the text which you would like 
output in a slower than normal speed: 

5000forx=1 tolen(tx$) 
5010 print mid${tx$,x,1): 
5020 for I - 1 to 333 
5030 next t:next X 
5040 return 

After setting the TX$ variable to the text you want to print to the 
screen, all that is needed is a GOSUB 5000 statement. The 
output can be slowed down by increasing the delay loop in line 
5020 and vice versa to speed it up. 

To simulate the effects of the Applesoft command FLASH, 
which prints text in alternating reverse and normal characters, 
use the following subroutine: 

6000rv$ = chr$(18):print 

6010 print "<cursor up>";rv$itx$ 

6020 if rv$ = chr${18) then rv$ = chr$(146)'golo 540 

6030 if rv$ = chr${146) then rv$ = chr$(18) 

6040fort=1 to333:nexl 

6050 get kSiifkS^"" then 3010 

6060 return 



The following set of commands deal with the internal workings 
of the computer or with the Input/Output (I/O), 

hjmem/lomem 
in#/pr# 
store/recall 
call 

The above commands can be simulated on Commodores but 
will nor maintain the same effect. HIMEM and LOMEM set high 
memory and Sow memory just like some pokes to locations in 
zero page such as 55-56 for setting the "highmem". IN*" and 
PR* are similar to the INPUT* and OPEN statements except for 
the fact that a Commodore uses device numbers instead of slot 
numbers. 

For example, to list a program to the printer on an Apple 
computer, you would type PR*1, assuming that the printer is in 
slot number 1 . Control would then be transferred to the printer. 
Typing LIST would list the Apple program to the printer. To 
give control to the printer on a Commodore system, the 
following commands would have to be executed: 

open 1,4:crnd 1:list 

The one (1) may be substituted by any number from 1 to 255. A 
number higher than 127 sends an extra line feed after each 
carriage return. The four is the normal device number of the 
printer, 

STORE and RECALL are used for writing files containing arrays 
to a cassette recorder. Storing files on disk or tape is not a hard 
task for a Commodore. It is however done differently. Explain- 
ing how to save sequential, relative and program files could fill 
up anywhere from a chapter to an entire book. For this reason, 
you should consult the proper manuals for each computer. 

The CALL statement is exactly the same as the BASIC 2.0 SYS 
statement which calls up a Machine Language routine. If, 
however, you encounter a CALL statement in an Applesoft 
program, the program is using Machine Language which 
means that the conversion would consist of working with the 
Machine Language too. That is beyond the scope of this article. 

Don't worry about those few commands that are not easily 
translated because just knowing the ones discussed here will 
be enough to translate hundreds of Applesoft programs. Revive 
an Applesoft program today! 



To use this subroutine, set TX$ to the text you would like 
flashed, and use the command GOSUB 6000. 
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What is COMAL? 



Michael J. Erskine 
San Angelo, TX 



COMAL stands for COMmon Algorithmic Language. It is a 
general purpose programming language conceived by two 
Danes in 1973, Borge Christenson and Benedict Lofstedt, U 
occurred to these gentlemen there existed a need for a higti 
level, highly structured programming language to introduce 
non-structured thinkers to slruclured programming concepts. 

Initially COMAL was a simple set of enhancements to BASIC, 
similar to BASIC 4-0, In the 13 years since its inception the 
language has evolved with the theory of structured program- 
ming. Today COMAL resembles BASIC in that COMAL retains 
some statements COMmon to many Algorithmic Languages; 
however COMAL is as different from BASIC as a Porsche is 
from a Model-T Ford. There was also a time when the only 
automobile one could own came in BASIC black and it was a 
very nice automobile. Given the exponential rate of growth of 
the hardware and software industries, is it really that hard to 
accept the fact that BASIC has become an antique? Is a Porsche 
a Model-T? Which would you most prefer to use for transporta- 
tion? 

COMAL is not BASIC, but learning COMAL is easier than 
learning BASIC, especially for a novice programmer. This is 
because the language was designed by educators for students of 
computer programming. Yes it is true that BASIC, among 
others, was designed u[ider similar circumstances; but BASIC 
was designed before the surge toward structured programming. 
Giving BASIC and PASCAL due credit COMAL has retained the 
best features of both languages and has many new tricks of its 
own thrown in. We build upon what we already know and add 
to the store of knowledge through the creative process. This is 
true in any science and any art, 

COMAL is easy to learn even though there are over 100 
commands, statements, functions and procedures available in 
the Kernal definition. All these are machine independent. This 
means a program written using these Kernal commands will 
run on any computer running COMAL, just by typing it in! 
Remember the word, "COMmon"? COMAL is now available for 
the IBM PC series, in Europe. That's COMmon! Commodore 
64's can also run COMAL in 2 versions, a disk loaded COMAL 
0.1 4 and a cartridge COMAL 2.00, that's much more COMmon! 

In addition to those 100 or so commands available in the 
Kernal, the programmer can build PROCedures and FUNC- 
tions which effectively re-define the language. For instance, if 
you need a FUNCtion to figure the standard deviation of an 
array containing a set of test scores you can write such a 
FUNCtion and name it find'std'dev then call it using only its 



name. The operating system will jump to that FUNCtion and 
execute it (using the parameters you specify, if you wish) and 
then return, unless that PROCedure or FUNCtion makes subse- 
quent calls, (more on COMAL names later) The cartridge 
version also allows calling EXTERNAL PROCedures and 
FUNCtions from disk, executing them, then continuing execu- 
tion of the running program which called them. Try that in 
BASIC, GOSUB was not retained from BASIC, for obvious 
reasons. 

For all you C-64 owners who realize the incredible, however 
often wasted, power of your VIC II and SID chips, the library of 
graphics and sound FUNCtions and PROCedures available will 
open a whole new world to you. There are 50 graphics '^com- 
mands" such as GRAPHICSCREEN used to set hi-res or multi- 
color graphics and 49 others which control graphics and the 
TURTLE. *Tes, dear I'm playing with the TURTLE again. ! can't 
help it, this LOGO EMULATOR is fascinating!". There are 32 
sprite commands like IDENTIFY, DEFINE, SPRITEPOS (x,y) 
and the biggie ANIMATE. There are 19 sound commands 
allowing access to every possibility the SID chip can offer. They 
make programming a tune as easy as copying sheet music! 
There is a command for reading the joystick, and one for 
reading paddles- There are 6 light-pen commands and 7 
special font commands which allow definition of a special font 
and placement of the font anywhere on any screen in any 
mode. I've a listing of a program about 3k long which plays 
music, uses 1 1 different sprites and draws with the TURTLE at 
the same time. The music is flawless and the little man walks 
across the screen exactly like a cartoon figure and the program 
contains NO MACHINE LANGUAGE. COMAL is very fast! It is 
so fast that I'd venture to suggest it may be possible for a clever 
programmer to write a procedure which makes the SID chip 
say "Hi, I'm SID and this is COMAL!" It may not be perfect but 
I'll bet it's understandable. Sorry, the sound, lightpen, joystick 
and paddle commands are only available in the cartridge 
version. 

I 

For the particular programmer COMAL offers 4 loop Fstruc- 
tures: 

(l)LOOP, EXIT. ENDLOOP 

(2) FOR, ENDFOR 

(3) REPEAT, UNTIL and 
{4)WHILE, ENDWHILE. 

There are two very powerful decision structures: 

(1) IF, THEN, ELIF(else if), ELSE, ENDiF and 

(2) CASE OF (variable), WHEN, OTHERWISE, ENDCASE. 
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The language also has built-in error handling routines which 
allow a programmer to TRAP an ERRor and REPORT it to the 
user via the ERRTEXTS (which is defined by fhe programmer). 

The interactive programming facilities are the equal of, per- 
haps belter than, any language on any computer anywhere. 
You can PRINT AT (row.column), * USING or just plain PRINT. 
When you're not PRINTingyou might INPUT AT (row,column- 
, number of characters) or place the CURSOR (row.column), if 
you are inputting data from the screen you will be pleased to 
find you are not able to leave the line or enter more data than 
specified in the number of characters. PAGE will clear the 
screen. KEY$ will check to see if a key was pressed and INKEYS 
will wait until a key is pressed. If you PRINT SPC$ (8) eight 
spaces will be printed, but you can also PRINT TAB {8). TAB (8) 
won't print the spaces but will move the cursor. You can also 
set the ZONE 8 and use a comma outside of quotes to skip 8 
spaces. 

If you want lo try your hand at writing a data base, you'll find 
relative file handling greatly simplified when you CREATE {"a 
relative file", number of records, record length). You might 
need to APPEND sequential files or DELETE any hie also, or 
you may want to simply MERGE a couple of programs. COMAL 
provides easy to use facilities for working with up to eight disk 
units, dual or single. COMAL works with 1541 FLASH!(tm). 

You say, '*Well, that's all nice but what if I want to twiddle a bit 

or two?". Where shall 1 begin? Commodore's Assembler/Editor 

makes life much easier. After llie code is written, just save it to 
disk and LINK it to your program, then you can SAVE the 
program and machine code to disk and they will both LOAD as 
a single module in subsequent LOADs. You can write several 
machine language routines and LINK them one at a time and 
they will not overwrite each other. You can twiddle individual 
bits with BiTAND, BITOR. or BITXOR. COMAL can read and 
write binary, hexadecimal and ASCI! files, and you can use any 
of the three types as constants in a program. It is possible to 
write machine language routines as PACKAGES (this is how 
graphics, sound, etc are included) and USE the package. There 
are people out there right now writing new packages of com- 
mands. After USE a package can be DISCARDed. You can USE 
more than one PACKAGE at once, subject to memory con- 
straints. 

If you do use up all 30K of work space you can inform your 
system that a PROC or FUNC is EXTERNAL and the operating 
system will LOAD and EXECute the routine called then return 
control to the main program carrying any changes or new data 
along. If that's not enough for your special menu-driven 
application, you can CHAIN a program from a running menu 
program and after it has been RUN for you, you can CHAIN 
back to the menu program. 

The operating/programming environment is a real work of art. 
It includes what can only be called a programmer's word 



processor. The screen editor provides commands such as FIND 
'^any string" and CHANGE '^any string'', ''to any other string". 
There are 304 different error messages. Of those 30 are dy- 
namic. This means they will return messages such as "coun- 
t:unknown variable", "wrong type of:INPUT", "wrong type 
of;READ'\etc, In other words the error message contains the 
name of the offending statement in many cases. The cursor is 
generally placed on the offending item or near it also. The error 
messages are non-destructive. After you have corrected the 
offending section the message will disappear and the over- 
written characters will be placed back on the screen! 

The function keys are completely programmable using the 
DEFKEY function and they may programmed for use in direct 
mode and program mode. They can be easily reprogrammed 
from within a running program. 

When in direct mode or while running a program you can use 
the 13 CTRL key functions, including such goodies as a true 
shades of grey graphics screen dump (CTRL D) and a text 
screen dump (CTRL P). 

There is one other thing you should know about COMAL. 
There are some very serious programmers who are constantly 
writing and placing in the public domain some very sophisti- 
cated programs. COMAL really is the replacement for BASIC, 
LOGO and a few others- Take control of your C-64 get COMAL. 
In the opinion of anyone I've ever spoken with who has written 
in several languages and then tried COMAL, "COMAL does not 
have a future, COMAL is the future!" 



The Use Of Names in COMAL 

I've been working in COMAL for about a year now. Happily, I 
never had a lot of experience with BASIC and therefore I am 
not having trouble with "BASIC thinking". 

1 don't presume to be a very good or experienced programmer 
but I have seen enough programs lo express certain feelings 
about correct habits when programming in COMAL, 

The idea behind COMAL is to be able to write programs which 
describe the solution to the specific problem being solved and 
reflect the logical procedures (steps) involved in that solution. 
In the words of Mr. Christensen, "It is a fact not to be over- 
looked that programming languages are not only used to 
control computing machinery, but also for COMMUNICATION 
OF IDEAS." This is a very powerful and wonderful concept. 

COMAL allows us to use up to 78 characters in a variable, 
procedure or function name. If we are to communicate ideas we 
must use words. The more descriptive and specific our names 
the better the distant reader of our programs will understand 
them. This is critical to his or her ability to use the program. A 
COMAL program should be so descriptive when it is read that 
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no further documentation is necessary! Program f ow is docu- In the same line of logic why should 1 call a procedure to figure 

mented by forced indentation {upon isling), calculations and the standard deviation of a set of lest scores something like 

most tests shou d be isoated and identified by the use of '"std'devOsO)" when 1 could call it with a statement ike "fi- 

functions. Procedures should be used whenever a section of gure'slandard'deviation(test'scoresOr? 

code is used more than once. . ^^„,, , . ,, . 

The naming facilities available in COMAL are designed by the 

The names used to describe these procedures, functions and authors of the language to support the already excel ent names 

variab es shou d be very descriptive. In a procedure which ^^ '^e.r statements and commands. 

names all the colors by assigning a numeric vaue to a name for j^^^ effective COMAL programmer will careful y select the 

each color one should NOT assign variable names like bg;- 3 ^^^^^ i^ ^^^^^ ^^ describe the PROCedure, FUNCtion or 

whenhecansaybuegreen: = 3.Asaconsequenceoftheabove variable AND its use in the program. 

naming we wou d have two possible statements to change the 

PENCOLOR at some later time in the program, PENCOLOR(bg) He wi also remember COMAL is NOT BASIC, not even 

and PENCOLOR(b uegreen). Whicti wou d you rather have to enhanced BASIC. COMAL is COMAL !!! It's just better than 

remember while you were writing the program? Which wou d anything else. Why try to describe a Porsche in terms of a 

you rather read if 1 had written the program? Model-T? 

Cartridge COMAL 2,0 
Library Descriptions 




Library fpaRe SflO, SA59A-SBFF1): 
ASCI Sense rouline 


950B PROC border[Jnf) 
95IE PROC !exlborder(mi) 
SE2A PROC graph kscreen(inl) 
9UFC PROC lexiscreen 
A25D PROC ^pHl^creen 
A258 PROC fullsereen 
8&FA PROC clearsereen 
895 E PROC dear 
A23B PROC showlurlle 
A24R PROC hideturtle 
A20F PROC lurllesizetreal) 
90A9 FUNC xour 
90D6 FUNC ycor 
eCA:^ PROC seixv( real real) 
904D PROC selheadmg(real) 
9094 FUNC heading 
903F PROC leJljreal) 
903C PROC Tighl{real) 
90IA PROC brwardfreal) 
9017 PROC bark(real) 
3SM PROC penup 
9542 PROC pendowLi 
954E PROC home 
9576 PROC wrap 
9584 PKOC nowfEip 
ABD7 KUNC mcKinl} 
AFf37 PROC savescreen(sir) 
B027 PROC loadscreenislr) 
ADF4 PROC print screen(slr,inl) 


SD9B PROC ppncolor(inO 
8DBE PROC lexttolorfinl) 
8FC3 FUNC getcolor( real, Teal} 
A37B PROC fi!l(real,real) 

A380 PROC painHreal.reaO 
9496 PROC bafkground(L[H) 
9483 PRtr textbarkgroundiini) 
950B PROC bordettini) 
95IE PROC texl borderline 
8E2A PROC graph rcs<:reen{in[) 
90FC PRrX? lexiscreen 
A25D PROC splilscreen 
A258 PROC fullscreen 
8fiFA PROC dearscreen 
S95E PROC dear 
A23B PROC showtuTlle 
A248 PROC hidelurtle 
A20F PROC tuT!lesize(real) 
90A9 FUNC xcor 
90D6 FUNC ycor 
aCA3 PROC 5elxy(real,real) 
904D PROC &eiheading(real) 
9094 FUNC heading 
903F PROC lelt(real) 
903C PROC Tighl(Teal) 
901A PROC rorv,ard(Teal) 
9017 PROC backfreal) 
9536 PROC penup 
9542 PROC pendown 
954E PROC home 
9576 PROC wrap 
9584 PROC [lowrap 
ASD7 FUNC Inq(ini) 
AI-U7 PROC savescreen(5Tr) 
B027 PROC loads-:reen(sTr) 
ADF4 PROC pTinlscree[i(slr,inl) 


9CEB FUNC sprilcx(inl) 
9CFF FUNC sprileyjinl) 
9D3F FUNC sprileLnq(in[,im) 
9ECD PROC slampsprile(inij 




PACKAGE engUHh: 
A686 Init rouline 




PACKAGE fonU 

CA2F Inil rouline 

ABDO PROC linkfont 

ABDF PROC loadlont(5lr) 

AC49 PROC keeplonl 

ABFl PRtX:' savpfonlEsIr) 

AC57 PROC geicharacier(ini,int,REF sir) 

AC87 PROC puTcharacTer^im.inT.str) 




PACKAGE dansk: 
Ab8C Inil rouline 




PACKAGE flyfllcm: 

CA2F ImlrouliEie 

A80B PROC seiprimer(slT) 

A9r,A PROC hardi:opy(slr) 

A976 PROC selrecorddelay(inl) 

A97D PROC se1pa^t^i^l) 

A9H4 FUNC in key 

A9B6 FUNC tree 

A9C3 PROC keywords' in'upper'case(inf) 

A9C6 PROC namesinuppercasejinl) 

A9C9 PROC quole'inodc(jnf) 

A9FJ FUNC currow 

A9E9 FUNC curcul 

A9F6 PROC tPKfrolors(iitTjnl,in[) 

AA34 PROC delkeylincsTr) 

AA7F PROC showkeys 

AB21 PROC bell(ini) 

AB2D PRCX: seria]{inl) 

A7FF PROC sellime(slr) 

A305 FUNC SeTiT'c 

A878 PROC gelstTeen{REF sfr) 

A87B PROC selscreen(REFstr) 




PACKAGE BouDd: 

B287 Inil routine 

B2FE PROC nole(inl,slr) 

B3DE PROC pulse(ini,ini) 

B3FA PROC gaie(in1.inl) 

B412 PROC 50un[l|ype(in1,LnI) 

B436 PROC ringniodOnt.ini) 

B4,5.'i PROC sync(ini,ini) 

B474 PROC adsr(im,in[,inl,int,inl) 

B4AD PROC fiHerfreqCinl) 

B4CD PROC resonanceCinT) 

B4E6 PROC fiMinCLn[,inl,inT) 

B508 PROC fillerlypejiiitjnl.inljnl) 

Bfi2C PROC volume(mi) 

B543 FUNC env3 

B549 FUNC osc3 

B54F FUNC freqiiency(sTr) 

B55B PROC seiscore(im,REF inU).REF 

inlfl.REF iniO) 
B59F PROC playscOTe(ini,im,in[) 
B5CD PROC slopplav(inl,Lnt,inl) 
BSFC FUNC wail5Core(inl,inl,int) 
B2E3 PROC selErequency(inl,real) 




PACKAGE turtle: 

8CE2 Inif rouline 

9017 PROC bkCreall 

9496 PROC bg(in1) 

88FA PROC cs 

90IA PROC fd(rcal) 

A24a PROC ht 

903F PROC ll(real) 

8D9B PROC pc(inl| 

9542 PROC pd 

9536 PROC pu 

90X PROC rt(reai) 

904 D PROC seih[feal) 

A23B f^ROC si 

9483 PROC lexlhi^inl) 

95CB PROC window(Teal, real. real, real) 

HFI5 PROC viewpori[int,int,in[,in1) 

8CA3 PROC drawto{ real, real) 

8ADA PRCX.^ driiw(rt'd],Teal) 

8B0fi PROC ploi{Teal,rea]) 

8C7C PROC moveto( real, real) 

8AE8 PROC move( real, Teat) 

A62A PROC cirrM real, real. real) 

A64F PROC arc) real .real, real, real, real) 

A564 PROC did( real, real) 

A55B PROC arcr(Teal,real) 

942G PROC lexlslyl€iinl.Lnl,int.ml) 

9157 PROC pbtlexlf real, real ,slrj 




Ijbrary (page i«J, SyoUF-ICOQO)' 
S081 Sense rouline 




PACKAGE graphk:«: 

8C0C [rilrouliiip 

95CB PR<X: wlndow(real, real, real, real) 

HFlf> PROC viewpori(ir>tjni,inl,ini) 

8CA^ PROC drawtcX real. real) 

SADA PROC draw(real,real) 

8B06 PROC plol( real, real) 

8C7C PROC move fo(real, real) 

8AE8 PROC move( real, real) 

Ab2A PROC drcM real, real, real) 

A64F PROC arc) real, real, real, real, Ti^ai] 

A564 PROC arcK real, real) 

AfjSB PROC arcr[reat.real) 

9426 PROC lexislyMinl,Lnl,inf,inl) 

9157 PROC pl(jUeJtl(reaf,real,ilr) 

8D9B PROC pencolorliiiO 

8DBE PROC texTcolottini) 

3FC3 FUNC ^efcolor(real,real) 

A37B PROC iiJI[real,real) 

A380 PROC pain Ureal, real) 

94% PROC backgTound(inl) 

948!! PROC textbackground(inO 




PACKAGE sprites: 

98B9 Inii TouTine 

9979 PH^K: defLne{inl,slr} 

9B0D PROC fdenlifyEint,inl) 

99AC PROC spriferolor(inl.iiH) 

99B6 PKOC ipri[epos(ini,int,mi) 

9A4A PROC spritesize(Lnl,inf.inl) 

9B46 PROC shov;sprite(inT) 

9B52 PROC hidespTUe(inl) 

9A83 PROC &priieback(ini,int) 

9A93 FUNC ipriiecol]ision(int,inl) 

9A9G FUNC da!aco!lision(int.inl) 

9ABF PROC priori ly(ml,int) 

AB54 PROC linkshape(iiil) 

AB5A PROC load&hape(inl.sfr} 

AB6E PROC save5hape(in[,5lr) 

9B[IF PROC movesprile(int,inL.ml,inl.inl) 

9A11 PROC slopsprile(inl) 

9DFC PROC animaie<ini,slr) 

9D13 FUNC moving(inl) 

9D1F PROC siarhpriles 




PACKAGE paddle*: 

CA2F Inil rouline 

Bfi2C PROC paddlc<inT,REFreal,REF 

reaLREF real, REF real) 




PACKAGE joystick*: 

CA2F Init routine 
B6R9 PROC jovsiick(in!,REF 
rpa],fiEF real) 




PACKAGE liRhlpen: 

B77D Inil rouline 

B7FA PROC o(fseT(inLinl) 

B7D1 FUNC penon 

8793 PROC Teadpen(REFreaJ,REF 

real, RE F real) 
B820 PROC ilmeon(ini) 
B82A PROC ddavtim) 
B80D PROC accuracy(inl,inl) 
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COMAL for the Commodore 64 



Chris Zamara, Technical Editor 



An Introduction to COMAL: Better than BASIC 



This article is not a product review, but presents information 
about a product which we feel is significant to the Commodore 
community. 



Whal is COMAL? Ifyou'reaCOMALfanand drive around with 
an 'I speak COMAL' bumper sticker, sorry for starling off with 
that question. But you see, COMAL isn^t really all that well- 
known in North America yet, and many people just aren't sure. 
If you're one of the un-COMAL-ized, you may be delighted by 
what you read here. This article answers the What about 
COMAL and gives some programming examples jusl to give 
you a flavour of the language. A complete COMAL program- 
ming tutorial is beyond the scope of this article, but we hope to 
provide that kind of information in future articles. 



COMAL (COMmon Algorithmic Language) is a programming 
language originally developed in Denmark by Borge Christen- 
sen, and is currently in widespread use throughout Europe. It is 
estimated that there are 100,000 COMAL users worldwide. The 
first version for Commodore machines ran on the PET/CBM, 
and was a public domain program, distributed in Canada by 
Commodore. The new C64 COMAL takes advantage of the 64's 
graphics and has been expanded from the original PET ver- 
sion. You can get the C-64 COMAL 0.14 system from the 
COMAL users group USA (see their address at the end of this 
article) or make a copy from someone who has iL You are 
encouraged to make copies of the COMAL system disk for 
friends or club members, as long as no profits are made and 
you copy fhe COMAL system disk unchanged. 

COMAL has been described as a cross between BASIC and 
Pascal, with the good points of both languages and the draw- 
backs of neither. COMAL is as easy to use as BASIC, requiring 
little overhead to perform simple programs, but it has the 
speed, control structures and parameter-passing capabilities 
that BASIC lacks- It does have the powerful structures found in 
Pascal, but is not as restrictive to the programmer and is simple 
to use. As another bonus, it also contains the "turtle" graphics 
commands from LOGO, If this article so far sounds like an 
endorsement of the COMAL programming language, well so be 
it. Read on about the language's capabilities and you'll be able 
to judge for yourself. 



There are two official versions of COMAL in widespread use 
right now. Version 0.14 runs from disk, and will leave your 64 
with about lOK of free memory once the language is loaded 
into memory, (See the Article "Is lOK Enough?" elsewhere in 
this issue.) The disk version keeps all error messages on disk to 
save memory, so there is a slight delay before an error message 
appears. The newest version of COMAL, called 2.00, comes on 
a cartridge. The cartridge leaves about 30K of memory free for 
user programs, runs about twice as fast, and error messages are 
now fetched instantly. The cartridge also includes new features 
and commands not found in version 0.14. The points pre^ 
sented below will generally refer to tx>th versions, with exclu- 
sive 2.00 features noted in the text. 

COMAL is a cross between a compiler and interpreter, compil- 
ing each program line as it is entered. That means that you'll be 
able to edit and run your programs in the same kind of 
interactive environment that BASIC enjoys, but your programs 
win run about 5 to 10 times faster. It also means that the 
compiler looks at each program line right after you press 
RETURN, so you're informed of any syntax errors immediately. 
This prevents dumb errors from sneaking into an obscure part 
of a program that will only be executed, of course, when you're 
demonstrating it. if you enter a bad line, the computer beeps, 
gives a VERY descriptive message, and positions the cursor at 
the point the error occurred. Fixing the error or moving the 
cursor to another line will cause the error message to go away 
and leave the screen EXACTLY the way it was before, as if 
nothing had ever happened. This is good for the ego. since the 
computer is so willing to forget your errors and reward your 
successes. 



Programming in COMAL 

Many of the actual keywords and functions in COMAL are the 
same as BASIC, so you won't be totally alienated the first lime 
you fire it up. You still get PEEK, POKE, CHR$. INT. and a lot of 
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other common functions. What makes COMAL better than 

BASIC is the structure of the language itself. The best thing is 

thai you'll never need GOTOs again, and line numbers have no 

significance outside of editing — HOORAY! You don't have to 
worry about indenting your control structures properly, either; 

COMAL does it for you. The structures available are listed 

below: 

(F(condition). , THEN, . .ELSE. , .ENDIF 

WHILE(condition). . ENDWHILE 

REPEAT . .UNTIL(condition) 

CASE(expression). . .WHEN(conditions}, . . OTHERWISE, 

. .ENDCASE 

FOR. . .ENDFOR (like FOR. NEXTin BASIC) 

TRAP. . .HANDLER, . .ENDTRAP (error trap - only in 

COMAL 2.00) 

The above control structures are what gives COMAL a superior 
operative environment to BASIC, You never have to use con- 
fusing branches to transfer control to different sections of code, 
just use the control structures to create a conditional loop or 
perform a series of instructions or procedures based on a 
condition. Procedures (explained more later) are like super- 
powerful subroutines, and let you break a problem into simple, 
understandable modules. Any student of modern structured 
programming techniques will appreciate COMAL's set-up, and 
anyone used to Commodore BASIC will be amazed at how 
much simpler it is to program with an up-to-date, powerful 
language. 

For, - -Next !oop,s and assignment statements look different 
from BASIC, but if you enter them in BASIC iorm, COMAL will 
automatically convert for you! Version 2.00 will also show all 
keywords in uppercase when you list the program, and user- 
defined procedures, functions and variables in lowercase. 

Resides the structures above, there are other major improve- 
ments that COMAL has over Commodore BASIC. For one. the 
use of long variable names, up to 78 characters long. And all 
characters are recognized, so ■ACC0UNTS_RECE1VABLE' and 

^ACCOUNTS_RECEIVED' are two different variable names. 
(The underscore is a valid variable name ctiaracter in version 

2.00 and is selected with the back-arrow key.) The other 

important characteristic of COMAL is its use of procedures and 

functions. 



COMAL Procedures and Functions 

When you define a procedure, it's like making your own 
COMAL keyword, since you call that procedure by just using its 
name, and passing as many parameters as that procedure 
needs. For example, a COMAL procedure to draw a square of a 
given size at a certain angle might look like this: 



PROG square(sfze, angle) 
setheading(angle) 

F0Ri: = 1 TO 4 DO 

forward(sjze) 
right(90) 
ENDFOR i 
ENDPROC square 

Now, to draw a square 25 units large at a 45 degree angle, you 
would just use the command: 

EXEC square(25,45) 

The EXEC statement is optional, so the statement could simply 
be; 

square(var1,var2) 

Want a nice design? No problem: 

F0Rn:-1 to 50 DO 

square(n*4,n*5) 
ENDFOR n 

Once a procedure has been defined, you can use it from direct 
mode as well as program mode, A procedure definition can be 
placed anywhere in a program, and will not be executed unless 
called; it can't be 'fallen into* like BASIC subroutines. By 
buiiding a program out of procedures, your code suddenly 
becomes simpler to understand and easier to de-bug. Further- 
more, a procedure can be defined as 'CLOSED^ meaning that 
all variables defined within the procedure are local. With a 
closed procedure, you can use any variable names you wish, 
such as T. without caring whether it's been used elsewhere. 
And in version 2,00. if you do wish to use a global variable 
within a procedure you can bring it in via the IMPORT com- 
mand. And of course, you don't have to worry about what line 
numbers a procedure uses — it's always called by name- 
Procedures can be called from within other procedures, en- 
couraging a "top down'* programming technique, where a 
problem is broken into lower and lower levels of detail. 

Since parameters are passed to a procedure as it is called, the 
problem of having to set up variables before calling a subrou- 
tine (like in BASiC) is eliminated. Entire arrays can be passed to 
a procedure, simply by including the array name in the param- 
eter list. Procedures are used just the same way that built-in 
COMAL procedures are, making your subroutines into natural 
extensions of the language. In COMAL 2.00, Procedures can 
even be EXTERNAL, meaning that the procedure definition is 
on disk, and is brought in when the program calls it. This 
allows you to maintain a library of procedures on disk and use 
them from any program. 

A few other notes about procedures. A procedure can be 
defined within another procedure, making it local (not execut- 
able from the main program or any other procedure). Another 
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capability of procedures is that Ihey can be used recursively, i.e, 
a procedure can call itself, using a new set of parameters each 
lime it does. Using recursion often produces a very elegant 
solution to a seemingly difficult problem, tor example drawing 
a binary tree or evaluating an expression. 

Besides procedures, you can define your own functions in 
COMAL, which are used implicitly just like the BASIC functions 
SIN or LEFTS. For example, you may want a function to round 
any number to a given number of decimal places. Just define it 
like this: 

FUNC round(number,places) 

mag: = lot places 

RETURN INT(number*mag + ,5)/mag 
ENDFUNC round 

Once this function definition has been included somewhere in 
your program (even at the end where it doesn't get executed), 
you can use it just as you would a built-in function, as in these 
examples: 

amount: = round{cash,2) 
PRINT"Timetaken is approximately ";round( 
minutes/60,1); " seconds," 
answer: = round(answer, precision} 

Functions, like procedures, may also be declared as CLOSED, 
and can be used recursively. 



Features of C64 COMAL 

Besides just the standard COMAL commands, version 0T4 and 
2.00 have a whole array of commands to handle graphics and 
sprites. The cartridge version 2.00 is a complete implementa- 
tion of COMAL-80. the current standard, but also contains 
extra commands in the way of packages, which can be invoked 
with the command: 

USE packagename 

The concept of packages works well, since the standard 
COMAL Kernel can be kept machine independent, and extra 
machine-dependent commands — such as those involving 
sound, graphics and sprites — can be added at will. That way, 
you only have to bring in what you need, and not use unneces- 
sary processing time and memory. Some of the packages 
available with the cartridge version are FONT, GRAPHICS, 
JOYSTICK, LIGHTPEN. SOUND. SPRITES. SYSTEM and TUR- 
TLE. Each of these adds many powerful commands to the 
language, and additional packages can be loaded from disk. 
You can even create your own packages, customizing the 
language to your own needs; any package currently in USE will 
be saved along with your program. 



Both COMAL versions contain "turtle" commands such as 
those found in the language LOGO. Turtle commands, com- 
bined with the procedure-oriented nature of COMAL, provide 
a very easy method to draw incredibly complex patterns on the 
screen. You simply move around a "turtle" (which appears as a 
triangle) by pointing him in the right direction and moving him 
a number of units forward or backward- The main turtle 
commands are: RIGHT and LEFT to turn the turtle a specified 
number of degrees; FORWARD and BACKWARD to move the 
turtle a specified number of units; PENUP and PENDOWN to 
tell the turtle whether or not to draw as it moves: PENCOLOR 
to select the drawing colour; and a host of other commands to 
show or hide the turtle, change his size, move him to an 
absolute position, find out his X and Y coordinates, fill in an 
area with a specified colour, and others. There is also a 
windowing capability to draw only within a pre-dehned area or 
to scale the drawing area. The cartridge also contains some 
non-turtle graphics commands to draw arcs, circles, lines, and 
to retrieve information about current graphics and turtle set- 
tings. 

If you're used to drawing patterns with packages like Simon's 
BASIC or other graphics utilities, turtle graphics are a real treat. 
Forget about calculating X,Y coordinates using number- 
crunching feats of math — just point the turtle in the direction 
you want and let him go. As an example, Listing 1 shows a 
COMAL procedure to draw an N-poinled star given its size and 
the number of points the star has. (It works well with anything 
but 6 points.) Note that the actual star-drawing takes place in 
only 4 lines, which just repeats the sequence FORWARD(size); 
RIGHT(angle) until all points are drawn. Try doing that with a 
cartesian-oriented graphics package! Furthermore, this proce- 
dure will draw the star wherever the turtle happens to be at the 
current time, so another procedure which was drawing some- 
thing else could just call STAR wherever a star was needed in 
the picture. COMAL isn't just for drawing pictures, of course, 
but graphic examples show the flexibility of the language, and 
are certainly fun to write and run! 

The COMAL cartridge includes commands to control sound, 
sprites, character fonts, joysticks, paddles, and a lightpen. But it 
is important to note that the COMAL system isn't just a different 
language for your C-64, it is an entirely new environment, 
replacing the 64's ROM set completely and turning the com- 
puter into a dedicated COMAL machine. The new environment 
is familiar, but contains features which help when editing. For 
one thing, the function keys are set up to generate oft-used 
commands such as LIST, RUN, TEXTSCREEN, SPLITSCREEN, 
FULLSCREEN, etc. (TEXTSCREEN and FULLSCREEN select 
either text or hi-res screen displays. The SPLITSCREEN com- 
mand displays the hi-res graphics screen while setting a 
window of five text lines at the top of the screen. This text 
window can be positioned anywhere on the full text screen 
with the cursor up/ down keys.) The function keys can also be 
re-defined as any string of text you wish. The cartridge pro- 
vides a slew of other key-driven functions via control-key 
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sequences. Pressing letter keys in conjunction with CTRL can 
give you a printer dump of the current text screen, move the 
cursor forward or back a word, erase to end of hne, change 
border/screen and text colours, among other things. 

The programming environment is further strengtliened by the 

inclusion of FIND, CHANGE, AUTO, DEL, RENUM, and 

TRACE commands. The DEL command, used to delete a range 

of program lines, can also be used to delete an entire procedure 

or function by name. Incidentally, LIST works the same way. 

And the error messages are so descriptive and precise that il is 

possible to learn the syntax of the language simply by typing in 

random guesses and following the suggestions of the error 

messages, which say things like: ': = ' or '(' expected, not 

integer constant, {If you wish. COMAL will even speak to you 
in Danish!) The overall programming environment is also 

enhanced by dozens of other clever touches like a pleasant bell 
sound when an error occurs, return from hi-res to text screen 
when a program is STOPped, word-wrap on program lines, 
and a smart INPUT statement which allows STOP key exits and 
glitch-free data entry. 

Another unique feature of the language is its ability to process 
sound and sprite actions concurrently with program execution. 
You can set up any number of sprite operations which will be 
executed during the 60 cycle interrupts while the main COMAL 
program is running. There is also the MOVESPRITE command 
wtiich simply tells the sprite where to move to and how fast, 
then continues program execution while the sprite does its 
thing. Likewise, music can be produced while a program is 
running by setting up a musica! score in arrays and using the 
SETSCORE command. With its auto-animation capabilities, 
COMAL gives a simple way to implement normally complex 
operations. 

COMAL'S basic personality is a forgiving one. tolerating minor 
syntax aberrations and fixing them up when the program is 
listed. For example, to end a procedure, the ENDPROC com- 
mand is used, followed by the procedure's name. If you leave 
off the procedure name, however, COMAL won't mind. The 
first time you RUN the program, it will figure out the correct 
name and put it in for you- The same goes for functions 
(ENDFUNC) and FOR. , ,ENDFOR loops. So to an extent, 
COMAL documents your programs for you. Speaking of docu- 
menting, version 2.00 allows blank program lines to separate 
sections of code — just enter a line number by itself. 

Another of COMAL's strengths is file handling and disk access. 
Programs can be stored and retrieved with LOAD and SAVE, or 
in sequential ascii format with ENTER and LIST. By opening a 
sequential file for input and using the SELECT command {in 
version 2.00), you can have BATCH files — that is. commands 
can be executed directly from a sequential disk file. Probably 
the best thing about COMAL's disk handling is the fact that 
random file access commands are built into the language, and 
COMAL fixes a bug that the 1541 has in dealing with random 
files. 



COMAL has hundreds of features not found in BASIC, too 
many to list in this article. Things like a built-in string search 
command, no garbage collection delays, a PRINT USING com- 
mand for formatted output, a ZONE command to set up tab 
fields, and dozens of little niceties that there isn't space to 
mention. At this point though, perhaps you have an idea of the 
scope and power of the COMAL system, and you can see why 
many who use it turn into big COMAL fans. Like the ones with 
the bumper stickers. 



COIV1AL Resources 

There are quite a few books on COMAL, both texts and 
reference. There are also disks available from the COMAL 
users group packed with programs. The disks are under $10,00 
each and there are over 2000 programs on 40 disks available 
by now. The COMAL users group USA publishes the magazine 
COMAL Today, which is filled with news, programs, and little 
tidbits about COMAL. A subscription to COMAL Today also 
gives you discounts on books and club disks. If youYe inter- 
ested in learning more about COMAL or wish to start using 
your COMAL system, a list of good references appear at the end 
of this article. Reviews of all of these books appeared in COMAL 
Today *7. These publications, the COMAL 0, 1 4 system, or the 
cartridge are all available from The COMAL users group, USA, 
Several packages including COMAL, books and programs are 
also available. For more information, contact: 



COMAL USERS GROUP, U.S.A., LIMITED 
6041 Monona Drive 
Madison, WI 53716 



COMAL Book List 

''COMAL From A to r' 

Borge Christensen 

- A reference of all COMAL commands; 64 pages 



"COMAL Workbook" 
Gordon Shigley 

- An exercise text for beginners; 69 pages 

"COMAL Library of Functions and Procedures" 
Kevin Quiggle 

- Reference guide for the included disk; 71 pages 

"COMAL 2,0 Packages" 
Jesse Knight 

- How to add your ov^n ML packages to COMAL; 1 08 pages 

"Beginning COMAL" 
Borge Christensen 

- Informal introduction to COMAL by its creator; 333 pages 
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^'Captain Comars Graphics Primer" 
Mindy Skelton 

- COMAL graphics and sprites for beginners; 84 pages 

"Cartridge Graphics and Sound" 
Captain Comal's Friends 

- Tutorial and reference for 2.0 extra package commands; 64 
pages 

"Commodore 64 graphics with COMAL" 
Len Lindsay 

- Complete organized reference for COMAL graphics com- 
mands; 170 pages 

"Foundations in Computer Studies with COMAL" 
John Kelly 

- Programming textbook using COMAL; 363 pages 

^'Caplain Comal Gets Organized" 
Len Lindsay 

- Writing a disk management system in COMAL, disk included; 
102 pages 

"Structured Programming with COMAL" 

Roy At he ft on 

- How to write structured COMAL programs; 266 pages 

''Cartridge Tutorial Binder" 

Frank Bason & Leo Hoisholl-Poulson 

- A tutorial specifically for the C64 COMAL 2,0 cartridge; 320 
pages 

*The COMAL handbook" 
Len Lindsay 

- The COMAL reference source, giving syntax and sample 
usage of all standard COMAL-80 commands 



Listing 1: COMAL program to draw an N-pointed star 

-note how COMAL indents the control struc 
tures. 



// - STAR " - this is a sample COMAL 

// program to draw a star of any 

// number of points. 

// ♦transactor magazine 1985 -cz 

USE graphics 

USE turtle 

splitscreen 

PRINT "'AA7"\ 

size: = 100 

LOOP 

PRINT ^"19"\ 

INPUT " number of points? " : points 

clear 

xslart; = INT{160-size/2) 

ystart: = INT(100-size/2) 

moveto(xstart,y start) 

pendown 

star(size, points) 
ENDLOOP 

PROCstar(size, points) 
//** draw an N-pointed star ** 
//first calculate the angle to 
//turn at each point 
CASE (points MOD 4) OF 
WHENO 

angvar::= points 
WHEN 2 

angvar: = points/2 
OTHERWISE 

angvar: = points*2 
ENDCASE 
angle: = 1 aO-360/angvar 

// now draw the star 
setheadtng{{1 80-angle)/2) 
F0Ri: = 1 TO points DO 
torward{size) 
right(angle) 
ENDFORi 
ENDPROC star 
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Is lOK Enough? 



Steve Kortendick 
Sun Prairie, Wisconsin 



Using The COMAL 0. 14 System On The C64 



Though available in many different formats, the most popu- 
lar versions of COMAL are disk-loaded systems which reside 
in user memory. These releases of the language occupy 
space otherwise used by user programs. For example, a 
Commodore 64 running BASIC powers up with the message 
that there are about 38 kilobytes free, but when loaded with 
the COMAL system confesses to have only about 10k of free 
space remaining. This has been a source of consternation 
for those expecting 64k on their Commodores, But the real 
question is whether serious, sophisticated programs can be 
run in a small amount of user space like the 10k available 
with Commodore 64 COMAL. 

I will admit at the outset that there are indeed some applica- 
tions for which 10k is insufficient. It should come as little 
surprise, in fact, that there are applications for which the 
entire 64k of the Commodore 64 are to few, among them 
predicting the weather and flying a space shuttle. But within 
the domains for which we bought those machines, I have 
never found an instance in which i would prefer 38k of 
BASIC workspace over 10k of COMAL. 

There's a certain elegance to doing a lot with a little. 
Countless hours of mainframe use. with seemingly limitless 
megabytes of * Virtual memory"', have not clouded the mem- 
ories of coming home to my PET, powering up, and seeing 

COMMODORE BASIC 
7167 BYTES FREE 

proudly displayed on the screen. At the time, this wcis the 
big 8k machine; they were still taking orders for the short- 
lived 4k model as well, with its ''3071 BYTES FREE'" 
message. Though I dreamed of the day I could add another 
8k chip to that early home computer, it was a needless lust; 
seldom did the small memory size limit my activities with 
that machine. 



With many of your programs (for some of you. all of your 
programs), the straightforward technique of simply storing 
your entire program and all necessary data simultaneously 
in the 10 free kilobytes will work quite well. Just compute 
merrily onward, and forget that some people with other 
applications might be having difficulty fitting everything 
into their machines. The remainder of this article is not for 
you. 

First you can regain some free memory by ''cleaning out" 
your program's name loble. COMAL keeps every variable, 
procedure, and function name in a table. Once the name is 
in the table, it stays there, even if the variable isn"t used any 
more. Misspelled names remain in the table as well, even if 
they are corrected in the program. COMAL saves the name 
table along with the program when you issue a SAVE 
command. Thus the old name table is reloaded with each 
LOAD. But. if you LIST the program to disk (LIST " NAME.L 
"). issue a NEW command, and then ENTER it back again 
(ENTER" NAME.L ^), COMAL will rebuild the name table. 
You should have more free memory now. 

Another very simple and efficient way of regaining lost 
spacewithCOMAListohonedown thesizeofyour DIMs to 
what you actually need. In the DIMensioning of strings. 
COMAL reserves space in memory for the full number of 
bytes requested. Thus "DIM ADDRESSS OF 1000" would 
reserve the full 3000 bytes of memory (plus some for the 
name and pointers) for the variable ADDRESSS, rendering 
that space unusable by any other variable. Recall that 
BASIC, in contrast, simply reserves a few bytes for the name 
(ADS is all it can keep) and pointers, then claims additional 
speed as it is required. Though space is not wasted, the 
disadvantages with BASIC'S technique are its speed 
(COMAL is over 79 times as fast in some string manipula- 
tions), its need for garbage collection (sometimes requiring 
several minutes to reclaim lost space), and its possibility of 
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run-time errors ("'OUT OF MEMORY ERROR IN 1230"). 
Likewise, when DIMensioning arrays ("DIM RANGE(-5:5, 
1:25}"). use only the indices needed; more will rob you of 
potentially valuable space. 

In BASIC, procedures (subroutines) are nameless creatures, 
identified only by their chance line number, and cannot 
receive parameters; functions are paltry one-line expres- 
sions identified by one letter and capable of handling only 
one frue parameter and no decision logic. Both are conse- 
quently difficult to use and are avoided by legions of BASIC 
programmers. COMAL, in contrast, allows meaningful 
names to be assigned, parameters (even arrays) to be 
passed, and complex branching to be performed in both 
procedures and functions. This eliminates the need for the 
common variable reassignment necessary for most BASIC 
subroutines (eg. XI =L: X2=:BR: T%=3: GOSUB 4250: 
1M = X4: REM SET UP VARIABLES AND INTERPOLATE), 
The use of procedures and functions not only eases the task 
of programming and debugging while making your code 
easier to read and understand, it also saves considerable 
space by not requiring you to repeal blocks of similar code. 
And the set-up required in BASIC is not needed in COMAL, 
simply call the procedure or function with the variable you 
need (eg. INTERMEDIATE := INTERPOLATE(LOW. HIGH, 
ACCURACY) ). And each procedure or function call takes 
only one byte, plus the parameters. Long variable names 
aiso take only one byte whenever used in a program, 
regardless of how long the name is. And the future is even 
brighter; the cartridge version of COMAL, in addition to 
freeing far more of the machine's memory, wilt allow exter- 
nal procedures to be called in from disk as needed and 
discarded from memory when they complete execution. 
[The ^uture'^ is now here: the COMAL cartridge is available. 
See the "All about COMAL" article in this issue - TEd) 

Those of you who have been using COMAL for graphics 
applications are aware that there is no comparison with 
BASIC when considering the space required to use the 64's 
graphics abilities. BASIC needs confusing, tedious, and 
spacious strings of POKEs buried in FOR NEXT loops, while 
COMAL is content with simple keywords like FORWARD, 
LEFT, DRAWTO, and PLOT. Sprites, too, can be defined, 
moved, manipulated, and detected with clear COMAL state- 
ments such as HIDESPRITE, PRIORITY, SPRITEPOS, etc. 
Again, BASIC programmers are mired in a series of PEEKs 
and POKEs, ideally peppered generously with copious RE- 
Marks (and each COMAL keyword lakes up only one byte 
each time used). Plus COMAL has reserved space for your 
graphics screens and sprite images right from the start. 
BASIC does not. forcing you to allocate it from within your 
program, losing about 4k. In addition, sound commands are 
available on the COMAL cartridge, but you can write your 
own sound procedures for the disk-based COMAL and easily 
create music and sound effects. The best that can be hoped 



for with BASIC is repeated code or a series of GOSUBs. The 
use of all these features can save considerable memory over 
an equivalent BASIC program. 

Common structures in BASIC require a copious amount of 
space. The decision structure, for example in this menu 
option acceptance routine, is a series of: 

IF(0$- "A"ORQ$= -a-ORQ$- "1 '■}THEN 

GOSUB1000:GOTO999 

lF(Q$="C''0RQ$-"c"0RQ$="2")THEN 

GOSUB1200;GOTO999 

lF(Q$="D"0RQ$-"d"0RQ$="3")THEN 

GOSUB1450:GOTO999 

ER=3:GOSUB2280 

COMAL, however, allows a simple CASE statement: 

CASE RESPONSES OF 
WHEN "A", "a\ "V 

ADD 
WHEN "C", "c\ "2" 

CHANGE 
WHEN "D", "d\ '3' 

DELETE 
OTHERWISE 

SIGNAUERR0R(3) 
ENDCASE 

Besides being simple and non line-number oriented, 
COMAL is able to save the programmer significant amounts 
of space with such programming. In this example the 
difference is a savings of 59 bytes; BASIC would require 
55% more space. Other structures which save bytes by 
eliminating hard-coded IF tests and subsequent complex 
branching are the ELIF and ELSE options of IF, together 
with WHILE and REPEAT UNTIL structures. 

Other built-in features, if used properiy, can also save bytes. 
The random number generator will provide you with inte- 
gers within a specified range if you so desire, freeing you 
from the steps of multiplying by a range, adding one, and 
truncating (SHAKE: = RND(I,6) will assign the variable 
SHAKE with an integer between 1 and 6 inclusive). The 
ZONE command and PRINT USING will help you format a 
screen or printed page with far less character counting (and 
fuss) than the fixed zones found in BASIC. Another feature 
which saves space by eliminating a couple of IF THEN 
GOTOs on ST is the EOF system variable, which becomes 
TRUE (1) at the end of sequential files. Coupled with the 
UNTIL loop structure, it will save you not only space but also 
heartache. COMAL has other similar features which make 
programming not only compact but also quite straightfor- 
ward. Further, such techniques are so clear that programs 
are easier to read without requiring neariy so much memory 
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for REMarks - though do not neglect to comment (//) even Each CHAINed program would end with CHAIN " MASTER- 
your COMAL programs. 'MENU " 



A technique I would recommend if you work with large 
amounts of data is to design your programs such that nof all 
of the data are resident in the computer at any given time- A 
mailing list, for example, would not exist in an array in the 
machine, but would be on disk in a random access file. You 
might keep the index (key) values, or at least their sequence, 
in memory for faster access, however Then you'd need only 
one name and address resident at any given time; updates 
can be done on an individual record basis. Another example 
might be statistical calculations on large sample popula- 
tions. Thousands of values could be on the disk in a 
sequential file, and you might read through them, summing 
samples, squares, cross-products, etc., retaining only those 
sums in memory. After a pass or two through the file, you'd 
have everything you need for all kinds of statistical calcula- 
tions, yet very little need be kept in memory at once. 

The time may come, despite all of the above-mentioned 
techniques, that you'll find yourself hemmed in by the I Ok 
limit imposed by the disk-loaded version of COMAL. Are 
you doomed to return to programming in BASIC? Not at ait. 
Your program and data size can be up to whatever you have 
available on disk(s). at least 170k- This is accomplished 
through a memory management technique known as over- 
lays. All that is required is that the currently executing 
program prepare any data necessary for the next program, 
then CHAIN the new program into the computer. This 
eliminates the program that did the CHAlNing, and passes 
control of the system to the beginning of the new program. 
For example, a program called COMPUTE'MEANS could 
finish its task, and end up with a statement CHAIN 
DO.DELTA.SQ" which would effectively LOAD the pro- 
gram DO.DELTA.SQ from disk and begin its execution. 

This CHAlNing technique is particularly easy to implement 
in a menu-driven system with clearly distinguishable sub- 
tasks, THe menu programs need only display a menu on the 
screen and ask for a response through a GET or INPUT 
statement. The rest of the program might then say 

REPEAT 
CASE RESPONSES OF 
WHEN "1" 

CHAIN "INPUT'ROUTINE" 
WHEN "F" 

CHAIN "FIX'DATA'ROUTINE" 
WHEN "C" 

CHAIN '^SCRATCH'FILE" 
OTHERWISE 
INPUT " Enter 1, F, C or S: " : RESPONSES 
ENDCASE 
UNTIL RESPONSES IN "IFCS" 



There is a potential problem with this chaining technique: it 
resets all user variables and DIM statements. At times this 
makes communication between CHAINed programs some- 
what difficult. Three techniques are fairly easy to use. 

The first is simply to find some unused bytes in a safe place 
in memory (the home of an unused sprite is often handy) 
and POKE the values necessary into this sequence of bytes. 
This is quick and easy for small amounts of data, does not 
change the screen, and causes no 1/0 delays. 

The second technique is to use the screen. You can either 
POKE to the screen as above, or you can PRINT to the 
screen, using cursor controls for positioning if needed. If you 
don't want the information seen, simply make your penco- 
lor the same as the background color; the information will 
be there, but will be hidden. The alternative, of course, is to 
make the information seen, making sure you put things 
where they'll look good. Here, getting the data back can be 
quite interesting. Of course you still have the alternative of 
PEEKing at what you want, but there's a far more enjoyable 
way. You can OPEN the screen (device 3) as an input file, 
then INPUT directly from the screen after positioning the 
cursor. This input from the screen technique is explained in 
the COMAL HANDBOOK, first edition, page 204 (UNIT) and 
123 (OPEN), and in the first issue of COMAL TODAY 
newsletter. What happens is that COMAL treats the screen 
as a sequential file, with each line seen as a record. You 
merely INPUT FILE from the screen, getting any informa- 
tion you need. 

A third technique for passing data between CHAINed pro- 
grams is to use intermediate storage. The CHAlNing pro- 
gram could OPEN a disk file, WRITE its parameters to that 
file. CLOSE the file, then CHAIN the next program. The 
CHAINed program, for its part, would DlMension whatever 
were necessary, OPEN the parameter file. READ the param- 
eters. CLOSE the file, and perhaps even scratch (DELETE) it. 
Then it would get down to business as usual. This method 
has the least of the kludge in it. but requires some time- 
consuming I/O. As always, there's a trade-off. 

As I admitted in the beginning of this article, there are 
applications for which 10k of user memory will be insuffi- 
cient. But several techniques have been presented which 
should help you pare down the size of your programs, and. 
if necessary, overlay them with others. Though there is 
some cost involved in the careful planning and space- 
conscious programming of a COMAL program, i find it far 
more pleasant and far less time-consuming than program- 
ming in BASIC, despite the latter's 38k available. 
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GO LOGO GO 



Howard Strasberg 
Don Mills, Ontario 



Tried Logo? No? Break the ice with this. 



NOTE: Although this article is written primarily for the Com- 
modore 64, Logo is very similar on most machines. Therefore 
many of the things that are mentioned can also be used on 
other computers. 

Logo is a language that should scare no one. It really is quite 
easy to use. It has a reputation for being so simple yet powerful, 
that even very young children can draw interesting designs, 
Logo is a great tool for graphics as compared to BASIC. U)go 
allows fast and easy use of the hi-resolution screen. If you have 
ever tried bit-mapping in BASIC, you will know what 1 mean. It 
is a pain and it is slow. Try machine language and spend years 
typing it in! Logo is the perfect solution! Logo is also quite a bit 
friendlier than BASIC- If you do something wrong in BASIC, the 
computer responds with a 7SYNTAX ERROR, i find that very 
rude. Logo is different. In Logo, when you either accidentally or 
purposely make a mistake, you get a THERE IS NO PROCE- 
DURE NAMED ... . 

When you understand Logo, it is quite friendly. You see. Logo 
uses what it calls procedures to do anything. A procedure 
which comes with Logo, something that is already pro- 
grammed, is called a Logo Primitive, Something that you make, 
let us say a program to draw a square, is called a Procedure. 
And to RUN a Procedure in Logo, all you have to do is enter the 
name of it. So. if you had a procedure to draw a square, and 
called it SQUARE, then a square would be drawn by typing 
SQUARE. And if you typed SQURE (instead of SQUARE), then 
Logo would respond: THERE IS NO PROCEDURE NAMED 
SQURE. ril talk more about procedures later in this article. 

Let us begin. As soon as you have loaded LOGO, type DRAW. 
This tells Logo that you wish to have a fresh hi-res screen to 
draw on. The screen will ciear, Ihere will be a cursor flashing 
on the lower part of the screen and there will be a triangle in 
the middle. This triangle is what we call the turtle. The turtle 
does all of our drawing for us. 

We want to move the turtle up. Only in Logo there is no such 
thing. Instead, we use FORWARD. The command FORWARD 
moves the turtle in the direction the turtle is pointing. It is very 
important that you understand FORWARD and the difference 
between it and 'Agoing up". Now. we cannot just say FOR- 
WARD. We need to say how many pixels forward. Type FOR- 



WARD 100. The turtle now should have moved 100 pixels 
forward. The opposite function of FORWARD is BACK. Type 
BACK 100, The turtle should now be in its home position 
(center of screen). Another way of returning the turtle home is 
the command HOME (Logo is so easy to grasp). 

Now, if we are going to draw anything that looks half decent, 
we must be able to move more than forward or back. Type 
FORWARD 100. Now, we want to move 100 pixels to the right. 
There is a command RIGHT. However, it does not move the 
turtle right, it turns the turtle right. So, type RIGHT 90. This 
turns the turtle right 90 degrees. You must understand that 
RiGHT 90 rotates the turtle 90 degrees FROM THE DIRECTION 
IT IS FACING. If the turtle is facing south, then RIGHT 90 will 
make it face west. To actually SET the turtle's HEADING to 90 
degrees (face east), type SETHEADING 90. Now that we have it 
facing right, we can say FORWARD 100. Type RIGHT 90 again 
and FORWARD 100 again. Try to complete the square. 

We can also have the square on the other side, left of the 
middle of the screen. To do this, substitute the RIGHT with 
LEFT. Carry out the following commands; 

FORWARD 100 
LEFT 90 
FORWARD TOO 
LEFT 90 
FORWARD 100 
LEFT 90 
FORWARD 100 
LEFT 90 

Logo, being the powerful language that it is, can do this with 
much less typing and much faster. It is kind of like a 
FOR.. NEXT loop in BASIC. We use the REPEAT command. The 
format is; 

REPEAT XX (procedure) 

Where xx contains how many times to repeat whatever is 
inside the square brackets. Type DRAW. Now, use REPEAT to 
draw our LEFT square; 

REPEAT 4 (FORWARD 1 00 LEFT 90) 
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Experiment now. making differenl sized squares, rectangles, Now, about procedures. Let's make a procedure that draws a 
triangles and, for a challenge, circles. square. We will brilliantly call it SQUARE. Type: 



There are some Logo commands which determine the specifics 
of the pen (the instrument the turtle uses to draw}. They are 
also straight forward. If you want to move the turtle some- 
where, but not leave a line while it is going there, just enter 
PENUR Penup is like a printer with no ribbon pressing on the 
paper. The turtle (pen) will move where you want without 
making a line. To continue drawing, give the PENDOWN 
command. PENERASE can only erase a line with the PEN- 
DOWN. This is the turtle's ability to move somewhere and 
erase anything it happens to go over. To do this, enter 
PENERASE. To return to normal from this one, we must 
change the turtle's colour back to 1 with PENCOLOR 1. As a 
matter of fact, Logo's turtle can draw in 16 different colours, 

numbered from 0-15. The following is a chart of the number 
and its corresponding colour: 






b ack 


8 


orange 


1 


white 


9 


brown 


2 


red 


10 


It. red 


3 


cyan 


11 


grey 1 


4 


purple 


12 


grey 2 


5 


green 


13 


I.green 


6 


blue 


14 


t.b ue 


7 


yei ow 


15 


grey 3 



Again to access these colours, type PENCOLOR x, where x is 
the numerical value of the colour you wish. The colour of the 
background where the turtle lives can be changed with BACK- 
GROUND X. 

To get a better understanding of the PEN functions, enter the 
following commands: 

DRAW FORWARD 100 
PENERASE BACK 100 PENCOLOR 1 
LEFT 90 PENUP FORWARD 50 
PENDOWN HOME 

Press Fl . You now see all of the information you have entered 
in the last few minutes. This is known as TEXTSCREEN, and 
can also be accessed by that name. Experiment with FS- 
SPLITSCREEN and F5-FULLSCREEN, 

Before talking about the procedure topic which 1 touched on 
earlier, [ would like to bring your attention to short forms. Most 
primitives in Logo do have an abbreviation. If the name of the 
command is a compound word, then the short form is the first 
letter of each of the two words {The short form for PENCOLOR 
is PC). If it is not a compound word, then the abbreviation is the 
first and last letter {The short form of FORWARD is FD). In some 
cases, no short form exists, in which case you must type in the 
whole word {1 know what you are thinking - NOW he tells me 
about short forms!!!) RT 90 is identical to RIGHT 90. 



TO SQUARE 

The screen wilt clear. (MISC NOTE: The editing system in Logo 
is much different from that of BASIC. I do not intend to go into 
the details of this editor. Try not to make a mistake. To find out 
more about the editor, consult a reference book, have someone 
teach you, or just experiment. Experimentation is the method I 
used.) You are now ready to define a procedure. This proce- 
dure will be quite brief. We'll make our square slightly smaller 
(80 instead of 100). Type: 

REPEAT4(FD80LT90) 

That is it! Press CTRL-C and the procedure will be defined. 
Now type DRAW. You will see the turtle. Type SQUARE. Voila! I 
believe it is time tor a design. Type: 

REPEAT 36 (SQUARE RT 1 0) 

This draws 36 squares, each 10 degrees apart. As you can see, 
Logo is doing quite a lot of things, and quite easily too. 
Remember earlier I challenged you to draw a circle? Here is 
how. All you do is create a 360-sided figure and have the turtle 
rotate 1 degree in between sides: 

DRAW 

REPEAT 360 (FD1 RT 1) 

Logo also can STAMP a CHARacter on the screen, in case you 
want your design to say something. Type: 

DRAWSTAMPCHAR "L 

and an L will be placed behind the turtle. However, in order to 
get a clear view of our STAMPed CHARacter, we must HIDE the 
TURTLE, which brings me to my next point. If at anytime you 
want to draw without showing the turtle, simply type HIDE- 
TURTLE, or HT. To bring it back to life, enter SHOWTURTLE, 
or ST. 

As you have undoubtedly noticed, Logo can accomplish a lot. 
And everything it does is done logically and powerfully. Many 
interesting and colourful shapes and designs can be drawn. 
However. Logo is capable of doing much more than just 
drawing, Logo can play music, do mathematics, handle sprites, 
do amazing things with words, and much more. If you find 
Logo interesting now, keep at it. You will find it demands your 
attention, but also offers entertainment and excitement. Good 
luck. . . 

Editor's Note: / believe COMAL contains more LOGO type 
commands than LOGO itself. If you want to try your tiand at 
LOGO, {fien COMAL is a good place to start. 
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Hidden Op-Codes 



Jim McLaughlin 
Ottawa, Ontario 



. . .For the record, all of the commands talked about in this 
article behaved identically on my 6502 and on my 6510. . . 



All computer users have experienced the problem of their 
machine crashing due fo the microprocessor's failure to under- 
stand certain commands. 

In this article I will attempt to clarify what happens at the 
machine level when a member of the MCS6500 microprocessor 
(CPU) family encounters an unrecognizable command. 

Some Microprocessor History 

MOS Technology, one of the companies that manufactures the 
MCS6500 family of microprocessors, claims that all of their 
chips can execute 146 instructions, in 13 addressing modes. In 
fact, the Commodore 64 Programmer's Reference Guide notes: 
XOMMODORE SEMICONDUCTOR GROUP cannot assume 
liability for the use of undefined OP CODES", Each instruction 
is identified by an eight bit number, and if my math is correct, 
that allows for 256 possibilities. What happens if the CPU is 
requested to execute one of the remaining 110 codes, you ask? 
Any number of things can happen, ranging from a ''no opera- 
tion", to a "crash", 

A look at a table of documented instructions will show that 
there are no op-codes in the ranges x3, x7, xB, and xF. where 
"x^ is any hexadecimal digit. Right away, 64 of the 110 instruc- 
tions are found. Another curious fact is that there is only one 
instruction in the x2 range. Again, another 15 instructions are 
accounted for. Most, but not all of the tables will also iist the 
command ROR and its 5 addressing modes. Since this com- 
mand was omitted in 6502's built before 1977, software written 
for the 6502 must account for the missing instruction. This 
leaves 26 unrelated instructions spread throughout the rest of 
the ranges- 

Back to the make-up of the op-codes for a moment. The eight 
bits (76543210) that makeup the op-code are arranged in the 
following manner. Bits 2, 3, and 4 are used to calculate the 
addressing mode (see table 1). Bits and 1, according to the 
first two bits ruie, are used to determine the type of instruction, 
and surprisingly enough, are never both set to 1 in any of the 
documented op-codes. Apparently when these bits are set at 
n. the instructions for 10, and 01 are executed one after the 
other, usually in that order. Generally this is the case for the x3, 
x7, xB. and xF commands. 



TABLE l;Addressir]g Modes - Op-code = xxbbbxx 



first b last two bb 


not post- indexed 


00(lnd.X} 

01 Zero Page 

10 Immediate/ Accumulator 


1 post-indexed 


00(Ind),Y 
01 Zero Page.X 

10 Absolute, Y 

1 1 Ab5oiute,X 



In the new list of commands, one will find that there are 6 new 
NOP's. Each takes up the same number of bytes and the same 
time to execute as the original NOP. There are also '^skip a 
byte" and "skip a word" (a two byte number). The SKB 
command takes up 2 bytes and the execution times range 
between 2 and 4 clock cycles. The SKW command takes up 3 
bytes and the execution time is 4 clock cycles. 

If you expected that the Hmes for execution of these commands 
would be the sum of times of the individual commands, you 
would be wrong most of the time. It turns out that most of the 
time used by the CPU to complete an instruction is taken up by 
its addressing of the data used. Hence the time for the two 
instructions is not much more than that of one of the instruc- 
tions. (See table 2 for a list of op-codes, addressing modes and 
timing values). 

! found the CPU^s execution times by employing a simple 
routine that carried out the command about 14 million times. 
This was compared to the time taken to execute a command 
with a known number of clock cycles. Having set up standard 
hmes, I was able to predict the timing of any. new or old. Later 
teshng showed that the loop could have been executed only 
100.000 times and the commands would have still been pre- 
dictable. 

One of the advantages to using these "new" commands is the 
saving of much time and space. For example, if you wanted to 
load the accumulator and the X-register with the same data, 
such as in absolute addressing mode, in normal assembly 
language it would be written something like this: 
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ad 01 08 Ida $0801 
aa tax 

This short routine takes up 4 bytes and takes 6 clock cycles to 
complete. However, if the same routine was written with the 
''undefined op-codes", it would be written as follows, 

AFOl 08 lax $0801 

The number of bytes consumed is 3, and the execution time is 
4 cycles, a saving of 1 byte and 2 cycles. In a substantial loop 
the saving of the 2 cycles might cut execution time by one third. 

Another value of the op-codes is that at this point, there are no 
disassemblers that can handle them. This makes it very easy to 
protect software since a pirate cannot make any sense of the 
code even if he can view it in memory. 

For example, consider the following program: 

AFOl 01 lax $0101 

OC 00 00 skw 

6F 16 01 rra$0n6 

If this routine was disassembled with a normal disassembler, it 
would result in: 



AF 


7?? 





ora($01,x) 


OC 


??? 

n n n 


00 


brk 


00 


brk 


6F 


W 


16 


asl$01.x 



This would make a very strange looking program, but would 
run without any trouble- 

The problem of incompatiblility should also be considered. The 
main reason why the new commands are not documented by 
the manufacturer is that they may not be present in all chips. 
Even if there is a command with the same number, they may 
not execute in exactly the same way^ When a new chip such as 
the 6510 was introduced into the market, the whole interna! 
structure was changed. Consequently some of the new com- 
mands did not work in some situations. For the record, all of 
the commands talked about in this article behaved identically 
on my 6502 and on my 6510. 

Some of the commands are so specialized that they are only 
used in very rare circumstances. 

As previously mentioned, there are 15 commands in the x2 
range that are not officially documented. 1 have given 12 of 
these commands the name "crash immediately'', after the Z- 
80's command "halt and catch fire" or "crash and burn". The 



command CIM causes the chip to loop forever, or until halted. 
The only explanation that has been brought forward is that all 
the branch commands end with a and that the x2 commands 
are "near neighbours". 

The second last group of undocumented op-codes lies in the 
group of individual commands. In other words, there is only 
one addressing mode for each of these commands. These 
commands include ALR, ARR. MKA. MKX, OAL, and SAX. For 
a complete description of these, see table 2. 

The last few undocumented op-codes He in the group I like to 
call "the unknown" or the "peculiar". These are four com- 
mands that do not seem to perform the same way on two 
different CPU^s- The four bytes are 89. 9C. BB. and EB. 

The 89 byte looks as if it should be STA Immediate, but that is 
impossible. It does, in fact take up 2 bytes and 2 clock cycles. 

The BB byte looks as if it might be OAL ABS.y, but it is not and 
the only thing that can be said about it is that it takes up 3 bytes, 
and 1 was never able to find out how many cycles it took. 

The second last byte is 9B. This one is very strange, in that it is 
the missing STA command- It now gives the programmer the 
ability to store the accumulator to an absolute address, indexed 
by the X-register. 

The last peculiar byte to be accounted for is EB. Not much can 
be said about this command either, other than it takes up 2 
bytes of memory, and 2 clock cycles to execute. A little testing 
has shown that the EB byte seems to act just like the command 
AND, zero page. In side by side testing the two provided the 
same answers, it is interesting to note that the original AND 
takes 3 clock cycles, as opposed to the the new one which only 
took 2. 

I have taken great pains to make sure that all that is written 
here is correct. However, the commands may work differently 
on other machines. If you want to write any programs using the 
new op-codes, I suggest that it be tested on several machines 
before assuming that it is correct. Most of the commands 
appear to be nearly universal in all MCS6500 family CPU's, 
especially the ones in the x3, x7, xB, xF ranges. Remember, if 
at first the new commands don't work, there is always the 
documented commands on which to fall back. 



Sources Consulted 

1. Extra Instructions. Joel C, Shepherd, Compute!, Oct. 1983, 

2. Programming the PET/CBM, Raeto ColHn West, 
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Table 2: Commands, Modes And Timing Values 



A - accumulator 
M - memory location 
X,Y - registers 



C - carry flag 
+ - add 
- -subtract 



Legend: 

& -logical AND 

V -logical OR 

V - logical EOR 



- - transfer to 

$xx - zero page addressing 

- add one cycle if crossing boundary 
$xxxx - absolute addressing 



Op-Code Operation 



Addressing Hex Clock Flags 
Mo6e Code Cycles Affected 



Op-Code Operation 



ALR LSR(A&M)^A Immediate 4B 
ARR ROR [A & M) ^ A Immediate 6B 



ASO (ASLM)VA.A 



AXS ASX^A 



Absolute 
Absolute.X 
Absolute, Y 
Zero page 
Zero page.X 
(Ind.X) 
(lnd),Y 
Immediate 

Absolute 
Zero page 
Zero page.Y 
(Ind.X) 
(ind},Y 

Absolute 
Absolute.X 
Absolute, Y 
Zero page 
Zero page,X 
(lnd,X) 
{lnd),Y 



INS A-(INC M)-C ■. A,C Absolute 

Absolute.X 
Absolute.Y 
Zero page 
Zero page,X 
(Ind.X) 
(lnd),Y 



DCM A - (DEC M) 



LAX MvA.M^X 



Absolute 
Absolute.Y 
Zero page 
Zero page,X 
(Ind.X) 
(lnd),Y 



OF 

IF 
18 
07 
17 
03 
13 
OB 

8F 

87 
97 
83 
93 

OF 
DF 
DB 
07 
D7 
03 
D3 

EF 
FF 
FB 
E7 
F7 
E3 
F3 



LSE (LSRfvl)VA.A 



MKA A & #$04 -r A 



6 

7- 

7' 

5 

6 

8 

8 

2 

4 
3 
4 
6 
6 

6 

7' 

7* 

5 

6 

8 

8 

6 

7* 

7* 

5 

6 

8 

8 



NZC 

NZC 

NZC 
NZC 
NZC 
NZC 
NZC 
NZC 
NZC 
NZC 

NO 
NO 
NO 
NO 
NC 

NZC 
NZC 
NZC 
NZC 
NZC 
NZC 
NZC 

NZCV 
NZCV 
NZCV 
NZCV 
NZCV 
NZCV 
NZCV 



AF 


4 


NZ 


BF 


4 


NZ 


A7 


3 


NZ 


87 


4 


NZ 


A3 


6 


NZ 


B3 


5 


NZ 



Addressing Hex Clock Flags 
Mode Code Cycles Affected 



MKX X & #$04 ^ A 



Absolute 



9E 



OAL (AV#$EE)&M) v A.X Immediate AB 



RLA (ROLM)&A.A 



Absolute 2F 

Absolute.X 3F 

Absolute.Y 3B 

Zero page 27 

Zero page.X 37 

(Ind.X) 23 

(lnd),Y 33 

Immediate 2B 

Absolute 6F 

Absolute.X 7F 

Absolute.Y 7B 

Zero page 67 

Zero page.X 77 

(lnd,X) 63 

(lnd),Y 73 



SAX (A&X)-M-0 T X Immediate 08 



6 

7' 

7' 

5 

6 

8 

8 

2 



RRA (ROR M) -I- A -I- C 
.A,C 



7' 

7* 

5 
6 
8 
8 



XAA (X&M).A 



Absolute.Y 9B 
Immediate 8B 



5 
2 



NZ 

NZ 

NZC 
NZC 
NZC 
NZC 
NZO 
NZC 
NZC 
NZC 

NZCV 
NZCV 
NZCV 
NZCV 
NZCV 
NZCV 
NZCV 

NZCV 

NZ 
NZ 



There are also four implied commands. 



Command Hex Clock 

Code Cycles 



Command Hex Clock 

Code Cycles 



NOP 



1A 
3A 
5A 
7A 
DA 
FA 



2 
2 
2 
2 
2 
2 



SKW 



SKB 



CIM 



Abso ute 


4F 


6 


NZC 


Absolute,X 


5F 


7' 


NZC 


Absolute.Y 


5B 


7- 


NZC 


Zero page 


47 


5 


NZC 


Zero page.X 


57 


6 


NZC 


(Ind.X) 


43 


8 


NZC 


(lnd),Y 


53 


8 


NZC 


Absolute 


9F 


5 


NZ 



E2 


2 


04 


3 


14 


4 


34 


4 


44 


3 


54 


4 


64 


3 


74 


4 


D4 


4 


F4 


4 



00 
1C 
30 
5C 
70 
DC 
FC 

02 
12 
22 
32 
42 
52 
62 
72 
92 
B2 
02 
F2 



4 
4 
4 
4 
4 
4 
4 
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A Comparison Of CPUs: The MOS 6502, 
Motorola 6809, and Motorola 68000 

Richard Evers, Editor 



To enlighten your day, our chip comparison will be slightly 
delayed in order that we may bring you a quick chip history 
lesson as it applies lo the world of Commodore. Our story 
begins before MOS technology was formed, wilh the hero of 
our tale being a very talented individual by the name of Chuck 
Peddle. Back in the days of old. the name Peddle was synony- 
mous with Motorola. In particular, it was Chuck Peddle who 
played a key role in the design of Motorola's first eight bit 
processor, the 6800. As history advanced, Chuck Peddles 
knack of leading the way in technological break throughs 
seemed to become his trademark. 

As time progressed, the 6800 s evolution continued due to the 

efforts of many people at Motorola until the 6809 chip, a pseudo 

16 bit delight with an 8 bit data bus, was conceived. The chip 
was an instant, limited success for Motorola. Great chip, kind of 

costly to make. A mini interjection; A joint venture between 
The University of Waterloo and BMB Compuscience back in 
the early 80's produced what became later known as the 
SuperPET Microcomputer. The system was based on the Com- 
modore 8032 microcomputer, but was further refined to in- 
clude a Motorola 6809 processor, 64k of extra RAM (bank 
switched), an RS232 port, plus 5 interpreted languages and a 
6809 assembler/editor system all written by the University of 
Waterloo. Aside from its obvious use as an educational tool, the 
rights were sold to Commodore for the purpose of marketing it 
as a highly powered business machine. By all indications it 
would have done well at the lime, but Commodore, in their 
often typical brilliance, put it on hold in favor of pushing their 
now famous Prolecto special, the B machine. They stopped a 
great computer from moving, to wait for a computer that they 
never moved. Reverse Commodore logic. And so, on with the 
story. 

Chuck Peddle knew that the key to the future was in the design 
of a lower cost 8 bit chip that would appeal to a mass market. 
He felt that if the 6809 could be powered down, thus reducing 
the manufacturing cost, a winner would be born. Enter MOS 
Technology. 



MOS was founded by a group of people who were far better at 
designing chips than they were at keeping the books. They 
quickly started in the design work of the 6500 series of chips, 
but just as quickly ran into financial problems, A great product 
without proper management to keep it afloat. 

Enter stage left. Jack Tramiel. After the calculator wars in the 
mid 70's, Jack Tramiel was at a stage where Commodore was 
on some pretty shaky financial ground. In simple terms, the 
move Texas Instruments made to produce their own calcula- 
tors and mass market them brought kaos to the calculator 
world as it was then known. When Tl entered the caiculator 
market, they brought with them a massive price reduction of 
their components, Tl florished with high volume sales. Other 
manufacturers perished under the strain of competing against 
Tl using older Tl chips bought at much higher prices. The 
fatality rate was extremely high, with the majority of manufac- 
tures sinking due to inexperience and Tl. At that time Commo- 
dore came pretty close to being one of the fatalities. 

To Commodores rescue came Irving Gould, a very well to do 
financier. In exchange for bailing out Commodore, he received 
all of Jack Tramiels corporate stock, with the agreement that 
Jack Tramiel would get back a portion if he could get Commo- 
dore back on its feet. A sure bet for Irving Gould if he really 
knew Jack Tramiel. 

Soon after the Commodore bail out, Jack Tramiel asked Irving 
Gould to back him in the purchase of MOS Technology, a good 
company in poor financial shape. The logic was that MOS had 
the capacity to do well, and could be bought for pennies on the 
dollar. With good management, Jack Tramiel was sure that 
MOS would make Commodore great. Never again was Jack 
Tramiel going to allow himself lo be at the mercy of other 
manufacturers in the market place. 

The balance is well known computer history. With incredible 
drive and determination, the team of Jack Tramiel and Chuck 
Peddle started Commodore on its path lo glory. Beginning with 
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the KIM microcompuEer board. Commodore rapidly developed 
ihe home computer market as we know it today. And so, the 
majority of our history lesson has been completed. 

If the past is any indication of future trends, Jack Tramiei is sure 
to bring Atari back into the world of the living. Something like 
the story of Frankenstein. Mad doctor Frankenstein worked 
like an animal salvaging people pieces here and there to create 
his monster. When the parts were assembled, and power was 
applied, presto, the creature was given life. The surprise is that 
it was more powerful Ihan the sum of its parts, and just as 
unpredictable. Perhaps Atari, with the salvaged structure of 
Atari, and the brains of Commodore, will also produce a 
creature more powerful than the sum of its parts. Pure specula- 
tion. 

To continue wifh the story, the 6500 series of chips have 
advanced very little in their true power. Although Ihey now 
possess better memory management capabilities, it is still 
basically of the same eight bit design. Enter Motorola once 
again. 

Unlike Chuck Peddles ideas regarding a power reduction of the 
Motorola chips, the people at Motorola could think of little else 
than increasing the chips capabilities. More power was the cry 
of the day, and so, a new chip was born. In a time when 8 bit 
was king, and 16 bits were a dream, the Motorola 68000 chip 
was considered revolutionary. Today, more than five years 
since its inception, the Motorola 68000 is one of the best. A 
totally new design without the limitations imposed by its 8 bit 
ancestor, the chip is incredible to say the least. Al 6 bit data bus 
that can directly interface with existing 8 bit MC6800 periph- 
erals, plus true 32 bit architecture that was designed to be a 

pleasure to program. 

To avoid a long, drawn out rendition about how the 68000 will 
change your life, here is a quick synopsis of the 68000"s special 
features; 

1) Most instructions within its set apply to 8, 16, and 32 bit 
operations- All that is required is to specify the instruction 
with a suffix of .B (or 8-Bit Byte, ,W for 1 6-Bit Word, or ,L for 
a 32-Bit Long Word. 

2) There are eight 32-Bit data registers, and seven 32-Bit 
address registers at the programmers access. 

3) Virtual memory access of 1 6 megabytes. (24 bits of 32) 

4) Linear addressing in a standard 32 bit base. 

5) It is a general-purpose register chip, therefore most instruc- 
tions (eg. ADD) can be used for any combination of registers. 
The same instruction for all registers, just a change in the 
suffix of registers involved. 



6) The I^OVE instructions exist! In simple terms, a few incredi- 
ble variations on the MOVE instruction allow data to be 
easily passed anywhere. Between registers, out ports, from 
ports, into memory, anywhere. To get you interested, there 
can be up to 34,888 combinations of MOVE made, for each of 
the 8. 16, and 32 Bit data types. Try that on a 65021 

To now remove the 68000 from the lime light. Motorola has 
announced the release of the 68010 chip, a totally compatible 
upgrade to the 68000. The sharp feature of the 68010 is that it 
has an upgraded access facility for up to 1 6 megabytes of virtual 
memory. Whatever is not RAM will be accessed from disk as 
virtual memory, with the processor going into a wait state until 
the contents from disk are brought into I^M. Once the virtual 
access is complete, processing continues. Along with the vir- 
tual memory access, a special bus access procedure has been 
further refined to allow faster bus access in a logical manner. 

As a final salute to the progress of Motorola, another chip has 
been produced that most of us will never see. It's the 68020, a 
true 32 bit monster that operates with a clock speed of 12.5 
MHz, soon to be 16.67 MHz. With a 32 bit bus and 32 bit 
architecture, it claims a speed increase over the 68000 of up to 
400% in some instances. To further blow its horn, the maxi- 
mum memory access capabilities have been increased from 1 6 
megabytes to 4 gigabytes! Right now this would mean a mini or 
main frame, but give it a few years. The distinction between 
micro's, mini's, and main's is getting more difficult to deter- 
mine every day. Another blatant speculation. 

To once again return to the main subject matter, the MOS 6500 
chips, and the Motorola 6800 and 68000 chips all share one 
thing: lineage. They were once related, therefore they share a 
similar instruction set. This is great news to the Commodore 
user. When, and if, Commodore releases the Amega Lorraine, 
it will be 68000 based. The Atari ST520 is also 68000 based. As 
a matter of fact, a quick look about the market will show that 
Intel and Motorola are basically the only ones involved in the 
business market. With the Atari 520 ST, it looks like the 68000 
will make it into the home forum. Whatever the case, if you are 
at all interested in keeping up with todays trends, get to know 
the 68000. Future chips in the 68000 series will share the 
instruction set, so a bit of knowledge now will go a very long 
way- 

Before advancing onto the hard core programming info, 1 
would like to extend my sincere thanks to Robert Hamashuk, 
Field Applications Engi[ieer with Motorola here in Toronto. 
Thanks to the research material he supplied, 1 have been able 
to go into much greater depth than ever anticipated regarding 
the Motorola chips. Thanks once again. 
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MOS 6502 Registers: 


6502 Data Addreftsing Modes 


A 


AccumuJator 


: 3 Bit 


01) Memory Immediate 


X,Y 


index Registers 


: 8 Bit 


02) Memory Absolute or Direct 


S 


Stacic Pointers 


: 8 Bit Stack always held at $0100-$01FF 


03) Memory Zero Page (direct) 


PC 


Program Counter 


: 16 Bit (Low/High) 


04) Implied or nherent 


p 


Processor Status 


: 8 Bits 


05) Accumulator 




BitO C Carry Flag Bit 4 B BRK Command 


06) Pre-lndexed Indirect 




Bit I Z Result Zero Bit 5 x Not In Use 


07) Post-Indexed Indirect 




Bit 2 I IRQ Disabled Bit 6 V Overflow 


08) Zero Page indexed 




Bit 3 D Decima Mode Bit 7 N Negative 


09) Absolute Indexed 

10) Relative 11) Indirect 


Motorola 6809 Registers: 


6809 Data Addressing Modes 


A.B.D 


Accumulators 


: D=16BitscomprisedofA + B(hi/b) 


01) Inherent 02) Accumulator 


X.Y 


Index Registers 


: 16 Bit 


03) Immediate 


s, u 


Slack Pointers 


: 1 6 Bit : S = System Stack, U = User Stack 


04) Absolute a) 05) Register 


PC 


Program Counter 


: 16 Bit 


b) Extended 


DP 


Direct Page 


: 8 Bit 


c) Extended Indirect 


cc 


Condition Code 


: 8 Bits 


06) Indexed a) Constant-Offset Indexed 




BitO C Carry Flag 


b) Con slant- Offset Indexed Indirect 




Bit 1 V Overflow Flag 


c) Accumulator Indexed 




Bit 2 Z Zero Flag 


d) Accumulator Indexed Indirect 




Bit 3 N Negative Flag 


e) Auto-Increment 




Bit 4 [ Interrupt Request Flag 


f) Aulo-Increment Indirect 




Bit 5 H Half Carry Flag (from bit 3) 


g) Auto-Decrement 




Bit 6 F Fast Interrupt Fag 


h) Auto-Decrement ndirecl 




Bit? E Entire State Saved On Stack Flag 


07) Relative 08) Long Relative 


Motorola 68000 Registers: 


68000 Data Addressing Modes 


A0-A6 


Address Registers 


: 32 Bit 


Mode Generation 


D0-D7 


Data Registers 


; 32 Bit 


Register Direct Addressing 


SSP 


Stack Pointer 


: 32 Bit Supervisor Stack A7 Addr Reg 


Data Register Direct ElA = Dn 


USP 


Stack Pointer 


: 32 Bit User Stack A7 Addr Reg 


Address Register Direct EA = An 


PC 


Program Counter 


: 32 Bit Low Order 24 Bits In Use 


Absolute Data Addressing 


SR 


Status Register 


: 16BiJs 


Absolute Short EA -= Next Word 


CCR 


Bits 0-7 of SR is the Condition Code Register 


Absolute Long EA = Next Two Words 




BitO C Carry Flag 


Program Counter Relative Addressing 




Bit I V Overflow Flag 


Relative With Offset EA = (PC) + dl6 




Bit 2 Z Zero Flag 


Relative With Index And Offset EA =: (PC) + (Xn) + d8 




Bit 3 N Negative Flag 


Register Indirect Addressing 




Bit 4 X Extend (similar to carry) 


Register Indirect EA = (An) 




Bits X Reserved Bit 


Postincrement Register Indirect EA = (An),An < An + N 




Bit 6 X Reserved Bit 


Predecrement Register Indirect An < An-N, EA ^ (An) 




Bit 7 X Reserved Bit 


Register Indirect With Offset EA ^ (An) + dl6 




Bits 8-1 5 of SR is the System Byte 


Indexed Register Indirect With Offset EA = {An) + (Xn) + d8 




Bits 10 Interrupt Mask*'! 


Immediate Data Addressing 




Bit 9 11 Interrupt Mask *2 


Immediate DATA = Next Word(s) 




Bit 1012 Interrupt Mask '3 


Quick immediate Inherent Data 




Bit 11 X Reserved Bit 


Implied Addressing 




Bit 12 X Reserved Bit 


Implied Register EA = SR. USP, SSP. PC, VBR, SFC DFC 




Bill3S Supervisor Stale 






Bit 14 X Reserved Bit 


Notes; < = Rep aces 




Bit 15 T Trace Mode 


EA = Effective Address An = Address Register 
Dn - Data Register SR - Status Register 


Note: SSP and USP are never active at the same 


PC ^ Program Counter Q = Contents Of 


time, thus they can "share' register A7- 


Xn = Address Or Data Register Used As Index Register 






dS ^ 8-Bit Offset (Displacement) 






dl6= 16-Bit Offset (Displacement) 






N = 1 for byte, 2 for word, and 4 for long word. If An is the 






stack pointer and the operand size is byte, N = 2 to 






keep the stack pointer on a word boundary. 



Th# TMraociof 



W3lunw6,lMiM03 



Instruction Set Comparison 

The MOS 6502. and Motorola 6809 and 68000 Chips 



..r^ 



Inslr 6502 

ABCD 

ABX 

ADC ^ 

ADCA 

ADCB 

ADD 

ADDA *^ 

ADDA 

ADDB ^ 

ADDD ^ 

ADDl 

ADDQ 

ADDX 

AND ^ 

ANDA ^ 

ANDB ^ 

ANDCC ^ 

ANDI 

AND!loCCR 

ANDltoSR 



6809 68000 









ASL 


t^ 


y^ 


*^ 


ASLA 




^ 




ASLB 




t^ 




ASR 




v^ 


v^ 


ASRA 




^ 




ASRB 




^ 




BCC 


^ 


^ 


t^ 


BCHG 






t^ 


BCLR 






t^ 


RCS 


t^ 


>^ 


t^ 


BEQ 


^ 


^ 


^ 


BGE 




j^ 


*^ 


BGT 




*> 


*^ 


BHl 




^ 


*^ 


BHS 




^ 




BIT 


•^ 






BITA 




*^ 




BETB 




f^ 




BKPT 






y' 


BLE 




y^ 


y^ 


BLO 




t^ 




BLS 




^ 


y 


BLT 




^ 


j^ 


BMI 


t^ 


v' 


y' 


BNE 


*^ 


^ 


y^ 


BPL 


v^ 


1^ 


y' 


BRA 




y' 


y' 


BRK 


f^ 






BRN 




j^ 




BSET 






^ 


BSR 




v^ 


*^ 


BTST 






y' 


BVC 


k^ 


y^ 


y^ 


BVS 


v^ 


*> 


y' 


CHK 






y^ 


CLC 


t^ 






CLD 


•^ 






CU 


^ 






CLR 




v' 




CLR 






y* 


CLRA 




^^ 




CURB 




y^ 




CLV 


§^ 






CMP 


^ 




y' 


CMPA 




t^ 




CMPA 






y- 


CMPB 




•^ 





Description 

Add Decimal With Extend 

Add Accumulalor B (unsigned) To Index Reg X 

Add Memory To Accumulator With Carry 

Add Carry Bit And Memory Byre To Accum, A 

Add Carr>' Bit And Memory Byte To Accum, B 

Add Binary 

Add Memory Byte To Accumulator A 

Add Address 

Add Memory Byte To Accumulator B 

Add 1 6 Bits Of Memory To Accumulator D 

Add Immediate 

Add Quick 

Add Extended 

LoRical AND 

Logical AND Memory Byte To Accumulalor A 

Logical AND Memory Byte To Accumulator B 

Logical AND Memory Immediate Byte To CC Reg 

Logical AND Immediate 

logical AND immediate To Condition Codes 

Logical AND Immediate To Slalus Register 

Arithmetic Bit Shift Leit 

Arilhmetic Bit Shift Left Accumulator A 

Arithmetic Bit Shift Left Accumulator B 

Arithmetic Shift Right 

Arithmetic Shift Right Accumulator A 

Arithmetic Shift Right Accumulator B 

Branch On Carry Clear 

Bit Test And Change 

Bit Test And Clear 

Branch On Carry Set 

Branch On Equal 

Branch On Greater Than or Equal 

Branch On Greater Than 

Branch On High 

Branch On Higher Or The Same 

Test Bits In Memory With Accumulator 

Bit Te^t - ANDing Memory Byte With Accum. A 

Bii Test - ANDing Memory Byte With Accum B 

Break Point 

Branch On Less Than Or Equal 

Branch On Lower 

Branch On Lower Or The Same 

Branch On Less Than 

Branch On Minus 

Branch On Not Equal 

Branch On Plus 

Branch Always 

Force Break 

Branch Never 

Test A Bit And Set 

Branch To Subroutine 

Test A Bit 

Branch On Overflow Clear 

Branch On Overflow Set 

Check Register Against Bounds 

Clear Carry Bit 

Clear Decimal Mode 

Clear Interrupt Disable 

Clear Memory Byte 

Clear An Operand 

Clear Accumulalor A 

Clear Accumulalor B 

Clear Overflow Bit 

Compare 

Compare Memory Byte To Accumulator A 

Compare Address 

Compare Memory Byte To Accumulalor B 



CMPD 




t^ 




CMPI 






t^ 


CMPM 






y 


CMPS 




t^ 




CMPU 




r* 




CMPX 




1^ 




CMPY 




*^ 




COM 




V 




COMA 




t^ 




COMB 




t^ 




CPX 


t^ 






CPY 


^ 






CWAI 




^ 




DAA 




^ 




DBCC 






y 


DBCS 






y 


DBEQ 






y^ 


DBF 






y^ 


DBGE 






y 


DBGT 






y* 


DBHI 






y* 


DBLE 






y 


DBLS 






^ 


DBLT 






y 


DBMI 






y 


DBNE 






y 


DBPL 






y 


DBT 






y 


DBVC 






y 


DBVS 






y 


DEC 


p^ 


y 




DECA 




t^ 




DECB 




^ 




DEX 


y^ 






DEY 


y^ 






DIVS 






y* 


DiVU 






y* 


EOR 


y 




y 


EORA 




t^ 




EORB 




^ 




EORI 






y' 


EORI to CCR 




V 


EORI to SR 






y 


EXG 




P* 


y^ 


EXT 






y 


INC 


y^ 


1^ 




INCA 




^ 




INCB 




v* 




INX 


■> 






INY 


y^ 






JMP 


y 


y 


y 


JSR 


y^ 


y^ 


y 


LBCC 




t< 




LBCS 




*^ 




LBEQ 




>* 




I.BGE 




l< 




LBGT 




v* 




LBHI 




t^ 




LBHS 




v' 




LBLE 




^ 




LBLO 




$^ 




IB15 




9^ 




LBLT 




^ 




LBMl 




*^ 




LBNE 




P^ 




LBPL 




y^ 




LBRA 




t^ 




LBRN 




w^ 





Compare 16 Bits Of Memory To A 16 Bit Register 

Compare Immediate 

Compare Memory 

Compare 1 6 Bits Of Memory To Stack Pointer 

Compare 1 6 Bits 01 Memory To User Slack Pointer 

Compare 1 6 Bils Of Memory To X Register 

Compare 1 6 Bils Of Memory To Y Register 

Complement Accumulalor Or Memory 

Complement Accumulator A Or Memory 

Complement Accumulator B Or Memory 

Compare Index Register X 

Compare Index RegisierY 

Clear And Wait For Interrupt 

Decimal Addition Adjust On Accumulator A 

Decrement And Branch On Carry Clear 

Decrement And Branch On Carry Set 

Decrement And Branch On Equal 

Decrement And Branch On Never True (False) 

Decrement And Branch On Greater Than or Equal 

Decrement And Branch On Greater Than 

Decrement And Branch On High 

Decrement And Branch On Less Than Or Equal 

Decrement And Branch On Low Or The Same 

Decrement And Branch On Less Than 

Decrement And Branch On Minus 

Decrement And Branch On Not Equal 

Decrement And Branch On Plus 

Decrement And Branch On Always True 

Decrement And Branch On Overflow Clear 

Decrement And Branch On Overflow Set 

Decrement Memory By One 

Decrement Accumulalor A By One 

Decrement Accumulalor B By One 

Decrement The X Register 

Decrement The Y Register 

Signed Divide 

Unsigned Divide 

Exclusive OR Logical 

Exclusive OR Memory Byte To Accumulalor A 

Exclusive OR Memory Byte To Accumulalor B 

Exclusive OR Immediate 

Exclusive OR Immediate To Condilion Codes 

Exclusive OR Immediate To Status Register 

Exchange Registers 

Sign Extend 

Increment Memory By One 

Increment Accumulator A By One 

Increment Accumulator B By One 

Increment The X Register 

Increment The Y Register 

Jump 

Jump To Subroutine 

Long Branch On Carry Bit Clear 

Long Branch On Carry Bit Set 

Long Branch On Equal 

Long Branch On Greater Than Or Equal To Zero 

Long Branch On Greater Than Zero 

Long Branch On Higher 

Long Branch On Higher Or The Same 

Long Branch On Less Than Or Equal To Zero 

Long Branch On Lower 

Long Branch On Lower Or The Same 

Long Branch On Less Than ZenD 

Long Branch On Minus 

Long Branch On Not Equal 

Long Branch On Plus 

Long Branch Always 

Long Branch Never 
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Insir. 6502 6809 68000Description 


ROR 




y 


Rotate Bits Right Without Extend 


LBSR 


*^ 




Long Branch To Subroutine 


RORA 


y^ 




Rotate Bits Right Accumulator A 


LBVC 


#^ 




Long Branch On Overl ow Bit Clear 


RORB 


y' 




Rotate Bits Right Accumulator B 


LBVS 


*^ 




Long Branch On Overflow Bil Set 


ROXL 




y 


Rotate Bits Left With Extend 


LDA »- 






Load Memory Byte Into Accumulator 


ROXR 




y 


Rotate Bits Right Without Extend 


LDA 


►^ 




Load Memory Byte Into Accumulaior A 


RTD 




y 


Return And Deallocate Parameters 


LDB 


J' 




Load Memory Byle Info Accumulator B 


RTE 




y 


Return From Exception 


LDD 


^^ 




Load 16 Bitr^ Of Memory In Accumulator D 


RTI ^ 


y' 




Return From Interrupt 


LDS 


»^ 




Load 1 6 Biis Of Memory In Slack Pointer 


RTR 




y 


Return And Restore Condition Codes 


LDU 


■> 




Load ] 6 Bits Of Memory In User Stack Pomler 


RTS ^ 


y^ 


y 


Return From Subroutine 


LDX ^ 






Load 8 Bits Of Memory Into X Regisler 


SBC y- 






Subtract Memory From Accumulator With Borrow 


LDX 


»^ 




Load ]6Bi[sOfMemoiy Into X Register 


SBCA 


y 




Subtract Carry Bil And Memory Byte From Accum A 


IRY ^ 






Load a Bils Of Memory Into Y Register 


SBCB 


y^ 




Subtract Carry Bit And Memory Byte From Accum B 


l-DY 


^ 




Load 16 Bits Of Memory Into Y Register 


SBCD 




y 


Subtract Decimal With Extend 


LEA 




*^ 


Load Effective Address 


sec 




y 


Set Conditiona Byte Carry C ear 


LEAS 


^^ 




Load ElfecTive Address Into Stack Pointer 


SCS 




y 


Set Conditiona] Byle Carry Set 


LEAU 


*> 




Load Elfeclive Address Into User Stack Pointer 


SEC ^ 






Set Carry Bit 


LEAX 


#^ 




Load Effective Address Into X Register 


SED y- 






Set Decimal Mode 


LEAY 


fr^ 




Load Effective Address Into Y Register 


SEI y^ 






Set Interrupt Disable 


LINK 




►^ 


Link Stack And Allocate 


SEQ 




y 


Set Conditional Byte Equal 


LSL 


t' 


^> 


logical Bil Shift Left Memory 


SEX 


y* 




Sign Extended 


LSLA 


»^ 




Los^ical Bit Shift Left Accumulator A 


SF 




y 


Set Conditional Byte Never True (False) 


LSLB 


►^ 




Logical Bil Shift Left Accumulator B 


SGE 




y 


Set Conditional Byte Greater Than or Equal 


LSR y- 


y^ 


»^ 


Logica Bit Shift Right Memory 


SGT 




y 


Set Conditional Byte Greater Than 


LSRA 


y* 




Logical Bit Shift Right Accumulator A 


SHI 




y 


Set Conditional Byte High 


LSRB 


^ 




Logical Bit Shift Right Accumulator B 


SLE 




y 


Set Conditional Byte Less Than Or Equal 


MOVE 




*^ 


Move Source To Destination 


SL5 




y 


Set Conditional Byte Low Or The Same 


MOVEA 




j^ 


Move Address 


SLT 




y 


Set Conditional Byte Less Than 


MOVEC 




y^ 


Move To/Prom Conlro Register 


SMI 




y 


Set Conditional Byte Minus 


MOVEM 




*^ 


Move Multiple Registers 


SNE 




y 


Set Conditional Byle Not Equal 


MOVEP 




^ 


Move Peripheral Data 


SPL 




y 


Set Conditional Byte Plus 


MOVES 




*^ 


Move To/From Address Space 


ST 




y 


Set Conditional Byte Always True 


MOVEQ 




I'' 


Move Quick 


STA ^ 






Store Accumu ator Into Memory Byte 


MOVE from CCR 




Yes 


Move Prom Condition Codes 


STA 


y 




Store Accumu ator A Into Memory Byte 


MOVEloCCR 




y' 


Move To Condition Codes 


STB 


y 




Store Accumu ator B Into Memory Byle 


MOVE Irom SR 




y' 


Move From Status Register 


STD 


V 




Slore Accumulator D Into 16 Bit Memory Location 


MOVE To SR 




t^ 


Move To Status Register 


STOP 




y 


Load Status Register And Slop 


MOVEUSP 




*^ 


Move User Slack Pointer 


STS 


y 




Store Stack Pointer Into 1 6 Bit Memoiy Location 


MUL 


*^ 




Multiply (unsigned) Accumulators A and B 


STU 


y 




Store User Stack Ptr. Into 1 6 Bil Memory Location 


MULS 




*^ 


Signed Multiply 


STX v' 






Store X Register Into 8 Bit Memoiy Location 


MULU 




#^ 


Unsigned Multiply 


STX 


y 




Store X Register Into 16 Bit Memory Location 


MBCD 




*^ 


Negate Decimal With Extend 


STY y- 






Slore Y Register Into 8 Bil Memory Location 


NEC 


1^ 


»^ 


Negate Memory 


STY 


y 




Store Y Register Into 36 Bit Memory Location 


NEGA 


1^ 




Negate Accumu ator A 


SUB 




y 


Subtract Binary 


NEtiB 


*^ 




Negate Accumulator B 


SUBA 


y 




Subtract Memory Byte From Accumulator A 


NEGX 




/> 


Negate With Extend 


SUBA 




y 


Subtract Address 


NOP ^ 


»^ 


t^ 


No Operation 


SUBB 


y 




Subtract Memory Byle From Accumulator B 


NOT 




y' 


Ijigical Complement 


SUBD 


y 




Subtract 16 Bits Of Memory From Accumulator D 


OR 




y' 


Inclusive OR 


SUBI 




y 


Subtract Immediate 


ORA ^ 






Logical OR Memory With Accumulator 


SUBQ 




y 


Subtract Quick 


ORA 


j^ 




Inclusive OR Memory Immediate Byte To Accum A 


SUBX 




y 


Subtract With Extend 


ORB 


*^ 




Inclusive OR Memory Immediate Byte To Accum B 


SVC 




y 


Set Conditional Byte Overflow Clear 


ORCC 


>> 




Inclusive OR Memory Immediate Byte To CC Reg 


SVS 




y 


Set Conditional Byte Overflow Set 


ORl 




1^ 


Inclusive OR Immediate 


SWAP 




y 


Swap Data Register Halves 


ORI 10 CCR 




y' 


Inclusive OR Immediate To Condition Codes 


SWI 


y 




Software Interrupt *l 


ORlToSR 




y* 


Inclusive OR Immediate To Status Register 


SWI2 


y 




Software Interrupt '2 


PEA 




1^ 


Push Effective Address 


SWI3 


y 




Software Interrupt '3 


PHA ^ 






Push The Accumulator Onto The Slack 


SYNC 


y 




Syncronize To External Event 


PHP ^ 






Push The Processor Status Onto The Slack 


TAS 




y 


Test And Set Operand 


PLA ^ 






Pull The Accumulator From The Stack 


TAX y- 






TranslerThe Accumulator Into The X Register 


PLP ^ 






Pull The Processor Status From The Slack 


TAY y- 






Transfer The Accumulator Into The Y Register 


PSHS 


h^ 




Push Specified Registers Onto System Stack 


TFR 


y 




Transfer Register To Register 


' PSHU 


^ 




Push Specilied Registers Onto User Stack 


TRAP 




y 


Trap 


PUUS 


^^ 




Pull Specihed Registers From System Stack 


TRAPV 




y 


Trap On Overflow 


PULU 


^^ 




Pull Specified Registers From User Stack 


I^T 


y 




Test Memory 


RESFT 




y' 


Reset Externa Devices 


TST 




y 


Tesl An Operand 


ROL y 






Rotate Bits Left Accumulator 


TSTA 


y 




Test Accumulator A 


ROL 


*^ 




Rotate Bits Left Memory 


TSTB 


y 




Tesl Accumulator B 


ROL 




t^ 


Rotate Bits Left Without Extend 


TSX ^ 






Transfer The Stack Pointer Into The X Register 


ROLA 


^ 




Rotate Bits Left Accumulator A 


TXA ^ 






Transfer The X Register Into The Accumulator 


ROLB 


^> 




Rotate Bits lefi Accumu ator B 


TXS ^ 






Transfer The X Register Into The Slack Pointer 


ROR ^ 






Rotate Bits Right Accumulator 


TYA ^ 






Transfer The Y Register Into The Accumulator 


ROR 


»^ 




Rotate Bits Right Memory 


UNLK 




y 


Unlink 
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The Intel 8088 Microprocessor 

Richard Evers, Editor 



Back in the days of olde, circa 1981 . IBM released their IBM PC 
complete with an Intel 8088 microprocessor. The 8088 is 
unique in that it has 1 6 bit architecture with an 8 bit data bus. 
The 8 bit bus was incorporated to altow a fast acceptance into 
the market due to the high proliferation of 8 bit support chips 
available at the time. Although a truly fast brother to the 8088 
was available, the Intel 8086, the 8088 was chosen. IBM traded 
off speed for quick market entry. 

Star Date 1985: Commodore announces the Commodore PC- 
10 and PC-20. IBM clones with a difference. Better pricing, 
complete compatibility, and a few nice hardware features 
standard. The trick is that they tried too hard to be compatible. 
The Intel 8088 is still there! Intel now has the 801 86 and 80286, 
which are 8086's with power to spare. They share the same 
instruction set as the 8086/8088 chips, but have all sorts of 
extras on board which make the 8086 look archaic. IBM has 
released the IBM AT, which comes with an 80286 microproces^ 
sor on board. The neat trick with this one is that software 
written for the normal PC will execute just fine, but with an 
incredible increase in speed- 
To follow up on this trend, clones such as the Compaq have 
followed suit, using an 80286 monster that runs with an 8 
megahertz clock. This one's so incredible that you can get into 
multi-tasking at two different clock speeds! One use for two 
separate clock speeds is in using the Intel 8087 Numeric Data 
Processer. This chip has the capacity to perform all math 
functions (80 bit) via hardware, at a speed unsurpassed by 
anything but a mainframe. The trick is, this chip runs at 5 
megahertz. It also has to run concurrent with the computer's 
main processor, ie. also at 5 megahertz. Normally, if you had a 
fast chip and you wanted to use the 8087 for number crunch- 
ing, you would have to slow down the main processor lo 
match. With the 80286 this is not so. One half of the multi- 
tasking environment can work at the same speed of the 8087, 
the other half can operate at top speed. No trade-off of speed 
for special functions. 

This little bit of IBM hype is intended to demonstrate the typical 
'too little, too late' philosophy common to most of the doners 
as well as Commodore. The PC-iO and PC-20 are great 
machines, just as most clones are. They are truly compatible, 
and do have some terrific features that most don't come with. 
And the pricing is fine. But it's a shame to suffer in the capacity 
of the machine just to clone a standard IBM PC. A trade-off in 
speed and capability to be able to state that it is truly compatible 
is an odd way to enter into the market four years too late. Just 
think how nice it would have been to read some Commodore 
propaganda stating that their clone was software compatible, 
but able lo outperform the standard IBM PC. 10 to L The 
Compaq can state this without fear of retraction. 



To finally get on track for the balance of this article, 1 would like 
to introduce you to the Intel 8086/8088 instruction set, a nice 
treat in the programming department. As stated earlier the 
8086 and 8088 share an identical instruction set, but the 8086, 
with its 1 6 bit data bus, can move data at a much faster rate. No 
matter, they are nice processors to work with. 

If you are at all familiar with the MOS 6502 series of chips, you 
know their philosophy of storing all data in a iow/high fashion. 
Not all chip manufacturers do this. For example. Motorola's 
6809 and MC68000 chips arrange their 16 bit words in high/ 
low fashion, as does the Zilog Z80 and Z8000 chips. With the 
Intel chips, luck has it that they store their 1 6 bit words in low/ 
high order. A point of trivia that the industry might try sorting 
out. 

A feature that you will soon grow to appreciate with the Intel 
chips is their capacity to access 1 megabyte of RAM/ROM. The 
trick is called segmentation. Segmentation works through the 
use of two 16 bit registers. These registers are called the 
Segment Paragraph Address and the Offset. The real memory 
address is computed as such: 

Real Address = 16 x Segment Paragraph Address + Offset 

This is equivalent to a Shift Left on the Segment Paragraph 
Address, then adding in the Offset. Therefore, if the Segment 
Paragraph Address is set to $0500, and the Offset is $0200, then 
(headdress = $5000 + $0200 = $5200. 

Depending on the operation performed, the Segment Para- 
graph Address is held in one of the following 16 bit segment 
registers: 

Word Function 

.CS Code Segment 

,DS Data Segment 

.SS Stack Segment 

.ES Extra Segment 

The processor also has a number of interesting registers. The 
accumulator is really three registers. AX is the 16 bit accumula- 
tor, but AL and AH are the low/high bytes of the accumulator. 
In this way 16 bit or 8 bit operations can be easily performed. 

Without taking up the entire issue to learn how to program the 
8088, 1 am going to barrage you with 8088 info. To best 
understand the 8088's registers and operations, a good book 
may be a good investment. The "8086/8088 16-Bit Micropro- 
cessor Primer* by Christopher L. Morgan and Mitchell Waite 
was extra helpful for me. The book is extremely well written, 
and they go into good depth on all aspects of the Intel chips. 

And so, on to a barrage of Intel info. Have a fine time. 
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Note: The term 'word" refers to 16 bit data in the following text. 
The term 'byte' refers to the standard 8 bit byte. 



Binary Integer Arithmetic 



Intel 8086/8088 Registers: 



Word 


Byte 


Byte 


H 


,AX 


AH 


AL 


Accumulator 


.BX 


BH 


BL 


Base 


cx 


CH 


CL 


Count 


.DX 


DH 


DL 


Data 


.SP 






Stack Pointer 


■BP 






Base Pointer 


.SI 






Source Index 


.Di 






Destination Index 


.IP 






Instruction Pointer 


.cs 






Code Segment 


-DS 






Data Segment 


.ss 






Stack Segment 


.ES 






Extra Segment 




SL 


SH 


Status Flags (see be ow) 



, Status Flags {bits} 

15 14 13 12 11 10 09 08 07 06 05 04 03 02 0100 

XX XX XX XX OFDF IF TF SF ZF xx AF xx PF xx OF 



XX 

OF 
DF 
IF 
TF 



not used SF 

Overflow Flag ZF 

Direction Flag (strings) AF 

Interrupt Enable Flag PF 

Trap -Single Step Flag CF 



Sign Flag 

Zero Flag 

Auxiliary Carry - BCD 

Parity Flag 

Carry Flag 



NEC 


dest 


NEGB 


dest 


ADD 


dest, source 


ADDB 


dest, source 


ADDI 


dest, data 


ADDBI 


dest, data 


ADC 


dest, source 


ADCB 


dest, source 


ADCl 


dest, data 


ADCBI 


dest, data 


SUB 


dest, source 


SUBB 


dest. source 


SUBl 


dest, data 


SUBBI 


dest, data 


SUBB 


dest, source 


SUBBB 


dest, source 


SUBBI 


dest, data 


SUBBBI 


dest, data 


MUL 


source 


MULB 


source 


IMUL 


source 


IMULB 


source 


DIV 


source 


DIVB 


source 


IDiV 


source 


IDIVB 


source 


CBW 




CWD 




iNC 


dest 


INCB 


dest 


DEC 


dest 


DECB 


dest 



Logical Operations 



Intel 8088/808G Instruction Set 



Data Transfer Instructions 



MOV 


dest, source 


MOVB 


dest, source 


MOV] 


desl, data 


MOVBI 


dest, data 


XCHG 


dest. source 


XCHGB 


dest, source 


PUSH 


source 


POP 


dest 


IN 


source 


INB 


source 


IN 




INB 




OUT 


dest 


OUTB 


dest 


OUT 




OUTB 




XLAT 




LEA 


register, source 


LDS 


register, source 


LES 


register, source 



MOVe word from source to destination 
MOVe Byte from source to destination 
MOVe Immediate data to destination 
MOVe Immediate data to Byte destination 

eXCHanCe contents of word locations 
eXCHanGe contents of Byte locations 
PUSH source onto stack 
POP stack into destination 
INput from source to AX (word) 
INpul from source to AL (Byte) 
INput from location (DX) to AX (word) 
INput from location (DX) to AL (Byte) 
OUTpui from AX (word) to destination 
OUTpul from AL (Byte) to destination 
OUTpul from AX (word) to location (DX) 
OUTpul from AL (Byte) to location (DX) 
transLATe (using a tables) 
Load Effective Address 
Load DS and register 
Load ES and register 



NOT 


dest 


NOTB 


desl 


AND 


dest 


ANDB 


dest 


ANDI 


dest, data 


ANDBI 


desl, data 


OR 


desl, source 


ORB 


dest, source 


ORI 


dest, data 


ORBI 


desl, data 


XOR 


dest, source 


XORB 


dest, source 


XORi 


dest, data 


XORBI 


dest, data 



Shifts And Rotates 



SHL 


dest 


SHL 


dest, CL 


SHLB 


desl 


SHLB 


desl, CL 


SHR 


dest 


SHR 


dest, CL 


SHRB 


desf 


SHRB 


dest, CL 


SAL 


desl 


SAL 


dest, CL 



Take NEGative of destination 
Take NEGative of Byte destination 
ADD source to destination (word) 
ADD source to destination (Byte) 
ADD Immediate data lo deslinalion (word) 
ADD Immediate dala lo destination (Byte) 
ADd source + Carry to destination (word) 
ADd source + Carry lo destination (Byte) 
ADd data + Carry lo destination 
ADd dala + Carry lo Byte destination 
SUBtracl source from destination (word) 
SUBlract source from destination (Byte) 
SUBtract dala from destination (word) 
SUBtract dala from destination (Byte) 
SUBtract source + Borrow from deslinalion 
SUBlract source + Borrow from Byte dest, 
SUBtract dala + Borrow from destination 
SUBtract dala + Borrow from Byte dest. 
unsigned 16-bit MULtiply 
unsigned 8-bil MULtiply 
signed l6-bilMUHiply 
signed 8-bit MULtiply 
unsigned 16-bil DIVide 
unsigned 8-bil DIVide 
signed 16-bit Divide 
signed 8-bil DIVide 
Convert from Byte lo Word 
Convert from Word lo Byie 
INC re men I destination (word) 
INC rem en I destination (Byte) 
DECrement destination (word) 
DECrement destination (Byle) 



lake logical NOT of the destination (word) 
take logical NOT of ttie destination (Byte) 
logical AND of source and destination (word) 
logical AND of source and destination (Byle) 
logical AND of dala and destination (word) 
logical AND of dala and destination (byle) 
logical OR of source and destination (word) 
logical OR of source and destination (Byte) 
logical OR of dala and dest (word) 
logical OR of dala and destination (Byle) 
logical XOR of source and deslinalion (word) 
logical XOR of source and destination (Byle) 
logical XOR of dala and destination (word) 
logical XOR of data and destination (Byte) 



logical SHift Left one bit (word) 
logical SHift Left CL bits (word) 
logical SHifl Left one bit (Byle) 
logical SHift Left CL bits (Byle) 
logical SHifl Right one bit (word) 
logical SHifl Riglil CL bits (word) 
logical SHifl Right one bit (Byle) 
logical SHifl Righi CL bits (Byte) 
Arithmetic Shift Left one bit (word) 
Arithmetic Shift Left CL bits (word) 
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SALB 


dest 


Arithmetic Sliift Left one bit (Byte) 


JLE 


target 


Jump if Less than or Equal to 

1 1 ' L' 1 V 


SALB 


desl. CL 


Arithmetic Shift Left CL bits (Byte) 


JNG 


target 


Jump if Not Greater than 


SAR 


desl 


Arithmetic Shift Right one bit (word) 


JNLE 


targel 


Jump if Not Less than or Equal to 


SAR 


dest. CL 


Arithmetic Shift Right CL bits (word) 


JG 


targel 


Jump }{ Greater than 

f *J T> 1 


SARB 


dest 


Arithmetic Shift Right one bit (Byte) 


JB 


target 


Jump if Below 


SARB 


dest, CL 


Arithmetic Shift Right CL bits (Byte) 


JNAE 


target 


Jump if Not Above or Equal to 


ROL 


dest 


Rotate Left one bit (word) 


JNB 


target 


Jump Lf Not Below 


ROL 


dest. CL 


Rotate Left CL bits (word) 


JAE 


target 


Jump If Above or Equal to 


ROLB 


dest 


ROiate Left one bit (Byte) 


JBE 


target 


Jump if Below or Equal to 


ROLB 


dest,CL 


ROtaie Left CL bits (Byte) 


JNA 


targel 


Jump if Not Above 


ROR 


r 

desl 


Rotate Right one bit (word) 


JNBE 


target 


Jump u Not Below or Equal fo 


ROR 


desl,CL 


Rotate Right CL bits (word) 








RORB 


dest 


Rotate Right one bit (Byte) 


TEST 


dest, source 


TEST (word) 


RORB 


dest, CL 


ROtate Right CL bits (Byte) 


TFSTB 


desl. source 


TEST (Byte) 


RCL 


dest 


Rotate Left through Carry one bit (word) 


TESTI 


desl, dala 


TEST word against Immediate data 


RCL 


dest, CL 


Rotate Left through Carry CL bits (word) 


TESTBl 


dest. data 


TEST Byte against Immediate data 


RCLB 


desl 


Rotate Left through Carry one bit (Byte) 








RCLB 


dest, CL 


Rotate Left through Carry CL bits (Byte) 


CMP 


dest, source 


CoMPare word 


RCR 


dest 


Rotate Right throuch Carry one bit (word) 


CMPB 


dest, source 


CoMPare Byte 


RCR 


dest, CL 


MjJ 4_^ T 

Rotate Right through Carry CL bits (word) 


CMPI 


desl, data 


CoMPare word against Immediate data 


RCRB 


dest 


Rotate Right through Carry one bit (Byte) 


CMPBI 


dest, data 


CoMPare Byte against Immediate data 


RCRB 


desl,CL 


Rotate Right through Carry CL bits (Byte) 














LOOP 


target 


LOOP 








LOOPZ 


target 


LOOP If Zero 


String Manipulation 


LOOPNZ target 


LOOP if Not Zero 








LOOPE 


target 


LOOP \t Equal 


REP 




REPeal (used to modify next string instr.) 


LOOPNE target 


LOOP if Not Equal 


REPZ 




REPeat while Zero 








REPNZ 




REPeat while Not Zero 


JCXZ 


targel 


Jump if CX is Zero 


REPE 




REPeat while Equal 








REPNE 




REPeat while Not Equal 


CALL 


target 


CALL direct within segment 


MOVC 




MOVe string Characters (byte) 


CALL 


target, segment CALL direct to new segment 


MOVW 




MOVe string Words 


CALLl 


dest 


CALL indirect within segment 


CMPC 




CoMPare string Characters (byte) 


CALLL 


desl 


CALL indirect Long (new segment) 


CMPW 




Co M Pare string Words 








SCAC 




SCan string Characters (byte) 


RET 




RETurn within segment 


SCAW 




SCan siring Words 


RET 


number 


RETiirn within segment and adjust slack 


LODC 




LOaD string Characters (byte) 


RETS 




RETurn from segment 


LODW 




LOaD string Words 


RETS 


number 


RETurn from segment and adjust stack 


STOC 




STOre string Characters (byte) 








STOW 




STOre string Words 








CLD 




Clear Direction flag 


System Control 




STD 




SeT Direction flag 


INT 
INTO 




INTerrupt 
iNTerrupt if Overflow 


Program Control Operators 


IRET 




Interrupt RETurn 








CLl 




CLear Interrupt flag 


JMP 


target 


JuMP direct wfthin segment 


ST\ 




SeT Interrupt Flag 


JMP 


target, segment JuMP direct to new segment 








JMPS 


dest 


JuMp Short 


HLT 




HaLT the cpu 


JMPl 


dest 


JuMp Indirect within segment 


WAIT 




WAIT (used to synco links of cpu with co-cpu) 


JMPL 


desr 


JuMp Indirect Long (new segment) 








JE 


target 


Jump if Equal 


LOCK 




LOCKS bus on next instr. from access by other 


JZ 


target 


Jump if Zero 






cpu 


JNE 


target 


Jump if Not Equal 


ESC 




FSCape (calls a co-processor into action) 


JNZ 


target 


Jump if Not Zero 








JS 


target 


Jump If Sign (negative) 


NOP 




NO Operation 


JNS 


larger 


Jump If Not Sign (non-negallve) 








JP 


target 


Jump if Parity (parity even) 


CLC 




CLear Carry 


JNP 


target 


Jump if Not Parity (parity odd) 


STC 




SeT Carry 


JPE 


targel 


Jumpif Parity Even 


CMC 




CoMplemenl Carry 


JPO 


target 


Jump if Parity Odd 








JL 


target 


Jump if Less than 


SAHF 




Store AH into Flags 


JNGE 


target 


Jump if Not Greater than or Equal to 


LAHF 




Load AH from Flags 


JNL 


target 


Jumpif Not Less than 


PUSHF 




PUSH Flags 


JGE 


target 


Jump if Greater than or Equal to 


POPF 




POP Flags 
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A Quick PC Primer 

Richard Evers, Editor 



Commodore PC-IO File Formats 

As many of you already know, there are four different disk file 
formats available for use witfi your standard Commodore drive. 
Tfiere is Sequential, Relative, Program, and User type files. Each 
fiave their own special merit in use, and each have been discussed 
at length in preceding issues. The purpose of todays article is bring 
about a bit of knowledge on the PC-10, the IBM PC clone from 
Commodore, and how it compares with currently available file 
formats. 

To understand file formats a little more, you have to remember 
that all data stored on diskette is really sequential data, accessed a 
little differently by the ROM routines responsible. Sequential and 
User files are identical, with data written to and read back in the 
same manner, sequentially. Program files are also read through 
sequentially, but the first two bytes are special for the Loading 
procedure. Program files in the land of Commodore are handled 
specially due to the PRG extension in the Load department. 
Relative files are actually sequential data files that can be accessed 
by specific records at will. The data within the records can be read 
sequentially, but greater freedom is allowed by the use of side 
sectors for keeping track of the track and sectors involved and the 
ROM routines for calculating the indexing required. So much for 
normal file formats with normal Commodore machines. 

The PC-10 does share all Co[nmodore drive file formats of past. 
Sequential, User Relative, and Program all exist. Hut the DOS does 
not put a special marking on the hies to inform you of the data type 
within. This is up to the user- 



Relative files, called Random files in MS DOS speak, are identical 
in concept to Commodore Relative files. The big plus is that 
Random Files don't have the tiny cap on record size as normal 
Commodore Relative files do. With MS DOS. you can have a 
maximum record size of 32768 bytes. Commodore Relative re- 
cords are maximum 254 bytes. With both types, aside for the 
Commodore 8050 drive, the maximum file size is restricted only 
by the room available on diskette. 

There is an odd note to mention here about MS DOS file work. If 
you will be working with Random records in excess of 128 bytes, 
you have to set up the buffer size from DOS before booting up 
BASIC. Due to the fact that DOS is resident in computer RAM, all 
the file buffers are also. From within DOS, special things such as 
the maximum number of files Open at any time, the maximum 
size of each buffer, the size of the serial buffer, and a host of other 
equally thrilling parameters, should be thought of before booting 
up BASIC. Although the defaults of each are pretty logical, some- 
times they just don't fit. Another point to remember when setting 
the parameters. The larger you go, and the more files you leave 
room to Open, the greater detraction from the 60k plus BASIC 
work space available. It won'f affect many people, but it's a point to 
ponder. 

To create a Random file is not a very difficult task. The following 
program will create a Raridom file, write 10 records of data. Close 
up the file, then re-Open and read through each record sequen- 
tially. Not a terribly exciting example, but it does show how 
Random files can be easily attained by the novice. 



Filenames in MS-DOS have a maximum length of 8 
characters, and a maximum extension after the filename 
of 3 characters. The delimiter between filename and 
extension is a period. Any filename you can type in, with 
the exclusion of a few special characters or reserved 
extensions, are at your disposal. Without DOS automati- 
cally assigning all extensions, this leaves room for some 
pretty obtuse extensions if used without thought. 

Program files, as created through the SAVE process in the 
Microsoft BASIC supplied with the PC-10, are pretty 
interesting. You can SAVE a hie as in normal program 
format, with a default extension by the system of .BAS^ or 
you can SAVE the program in ASCII format, or you can 
SAVE it in a protected form. The ASCII format is used if 
you want to MERGE the program over top of another 
program you are working on. ASCII program files can 
also be LOADed and RUN as normal ones. Protected files 
are just program files (hat cannot be listed, at least 
without digging into RAM a bit to flip a few bits. 



100 ' Random File Demo Program 

105 OPEN ''R^',#1,"RANDOM.RND",T00' Record SizeOf 100 Bytes 

1 10 F!ELD#1 ,25 AS FIRST$, 25 AS SECONDS, 25 AS THIRDS, 

25 AS FOURTHS 
115F0RL00P = 1 TO10 

1 20 LSET FIRSTS = STRS{LOOP) " Left Justify All Strings 
125 LSETSECONDS = STRS{LOOP*10) ' Into Buffer For Write 
130 LSETTHtRD$ = STR$(LOOP*100) 
135 LSETFOURTH$ = STR$(LOOP*1000) 
140 PUT#1,L00P' Write Record In 
145 NEXT LOOP 
150CLOSE#1 
155' 

1600PEN "R",#l, "RANDOM. RND" 
165FIELD#1,25ASFIRSTS, 25 AS SECONDS, 25 AS THIRDS, 

25 AS FOURTHS 
170FORLOOP = 1 TOlO 
175 GET#1 ,LOOP ' Get The Appropriate Record 
180 PRINT FIRSTS, SECONDS, THIRDS, FOURTHS 
185 NEXT LOOP 
190CLOSE#1 
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For your own edification, the ' is another form of the REM 
statement to flag comments. REM does exist in MS BASIC, but the 
apostrophe is much tidier, in my opinion. 

The example above is both in Upper and Lower case, with L-ower 
case only appearing in comment lines. The reason ts because the 
interpreter allows you to type everything in either case, but 
automatically converts all executable code into Upper case. 

To start, line 105 Opens 'RANDOM. RND^ for Random access, with 
a record length of 100 bytes. The "R" following the OPEN keyword 
signifies Random Access. Fur all other file formats, the "R'^ cannot 
be used. They have fheir own special indications for whatever hie 
work is required. 

Line "110 sets up the file buffer to accept the data for the write. In 
this example, the first 25 bytes in the hie buffer will come from 
string variable FIRSTS, the second 25 bytes from SECONDS, etc. 
Once a FIELD statement has been executed for a Read or Write, it 
remains the same for that particular logical file number. For tfiis 
example, the logical hie number assigned is *1 . 

The lines 105-145 loop through a procedure of assigning the 
correct string with test data, and moving the string data in the 
correct position within the buffer. LSET is a command to Left 
Justify the data into the buffer, padding with spaces as required. 
This command has a second cousin by the name of RSET, Predict- 
ably, it Right Justihes the data in the buffer. 

When all data has been transferred into the buffer, a single PUT" 
statement is used to PUT the record "LOOP to disk, A fairly simple 
concept to grasp. 

Line * 1 50 Closes logical file * 1 to end our write demo. The CLOSE 
statement can be used in a variety of ways. You can CLOSE one 
specific logical file, or a number of logical files via CLOSE "1 "2/3. 
etc., subbing in the logical hie "'s affected. It a single CLOSE was 
used, all currently OPEN files would be Closed up immediately. 

Line "'s 160-190 perform the read the data in routine. The file is 
Opened once again for Random access, with the record length not 
being specihed at the programmers discretion. The file buffer is set 
up accordingly through the FIELD statement, then the fun begins. 
Each record is read sequentially through the use of the GET" 
statement, with the strings thereafter being printed. Not a very 
difficult procedure, as most can see. 

With Random access described in whole. Sequential access tech- 
niques begin. To create, write to. and read from sequential hies is 
no major trick. Look below for a program that suits the occasion. 



200 ' Sequential File Create/Read Routine 

205 OPEN ''0^',#i;'SEQFILE.SEQ" ' Open File For Output (write) 

210FORLOOP=l0TO20 

215 PRINT#1,STR$(L00P),CHR$(13); 

220 NEXT LOOP 

225CLOSE#1 

230" 

235 OPEN 'T\#1 /'SEQFILE.SEQ" ' Open File For Input (read) 

240 INPUT#1 ,A$: PRINT A$. IF E0F(1) =0 THEN 240 ELSE CL0SE#1 



Line *205 shows a standard OPEN statement, this time using a ''0" 
to indicate an Output (Write) procedure. Lines 210-225 write 10 
sets of test data to the hie, then Closes it up. The PRINT* statement 
can be replaced by a whole slew of commands to suit your needs. 
PRINT* USING exists as does WRITE*, for the purpose of format- 
ting the output generated. No more special string work required for 
all who like nice looking, formaUed files. Microsoft to the rescue. 

Line 235 Opens the file once again, this time for an Input (Read) 
Operation. The 'T' is the flag for this procedure. Line 240 Inputs 
and Prints all the data held in the file. The function E0F(1 ) flags the 
user when the end of file has been reached by returning a value of 
-1 . When this happens, the ELSE statement comes into play thus 

Closing up the hie. 

To further entice you, another replacement has been invented for 
the ever bugged up INPUT* statement. The INPUTS statement. 
INPUT* is still stopped by delimiters such as the comma, carriage 
return, and colon. 1NPUT$ is not. The format of INPUTS is as 
follows: 

A$ = INPUT${numchar,togadd) 

. . .where numchar is the number of characters to read each time, 
and logadd is the logical hie address to read from. If the logadd is 
left off, the default will be from the keyboard. 

Another feature exists with the PC- 10 that has always been a 
favourite with Commodore DOS users. The Append feature. By 
Opening a sequential file with "A", you can write directly to the 
end of the file. In reality, Commodore DOS and MS DOS are not 
thai far apart in concept. Commodore DOS is more automatic and 
user friendly, but MS DOS has extra advantages such as greater 
speed and versatility due to DOS upgrades without surgery to the 
drive. 

There are a number of different extensions that the system will 
automatically assign to filenames ot various orgins. They are the 
system files of DOS, batch processing files, and a host of other hie 
types. The .BAT or batch file will be discussed next, but if the MS 
bug has really hit you, your best option would be to invest in a few 
of the PC magazines available, and hunt around for a book or two 
on the subject. 



Batch Processing With Your PC- 10 

The Commodore PC-10, the IBM PC compatible machine, is vastly 
different from any machine Commodore has released before. The 
Commodore of past has always prided itself in marketing their own 
designs. The microprocessors were always of MOS 
design, the architecture always typical Commodore, 
absolutely everything had a typical Commodore feel- 
Well, with the PC-10, Commodore has finally accepted 
that same is easier than different. The PC-10 is an IBM 
PC clone, with a few improvements. The keyboard is 
nicer to use, the standard options have been enlarged, 
and the price is also signihcantly lower, A clone to be 
proud of. 
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With the new Commodore machine on the scene, a whole new 
mind set will be required for those uninitiated with the IBM PC. 

The drives are no longer intelligent, therefore the DOS has to be 

loaded into computer RAM before access to the drive can really 

begin. The BASIC language is no longer resident in ROM, therefore 

BASIC, or some other language, will also have to be brought in 

from disk after DOS. But, even with these tedious shortcomings, a 

breath of fresh air appears. The entire booting up process on 

system initialization can be automatically performed with little 

effort, allowing the DOS, system parameters, language, and first 

program to all be brought in or sei up as required. Welcome to 

Batch Processing, a welcome friend in a strange new land. 

For anyone familiar with the Power command EXEC, or Chris 
Zamara's STP from a few issues back, the concept of operation is 
similar. They ail allow you to create a sequential file on diskette 
that can be read from and executed by the computer as if entered 
directly from the keyboard. This allows you to perform some pretty 
terrific procedures on a repetitive basis without the major key- 
board hassles- 

When the PC-10 is first powered up, or re-booted via (Control) 
(Alt) (Del), the DOS Is automatically brought in from the default 
drive, normally drive A, then a file by the name of 'AUTOEXEC- 
.BAT" is checked tor. If it exists then the file is read through and 
executed sequentially. If the file is not found, the system drops into 
normal DOS mode. 

The ^AUTOEXEC.BAr file is a batch file with a special name. Batch 
files can be easily created that will batch process your needs, but 
*A UTOEXEC.BAT* is the only one capable of executing from 
system start- 
To create the Autoexec file from DOS, little work is required. From 
within DOS, type in the following: 

COPY CON A:AUTOEXEC.BAT (Carriage Return) 

The Drive A has been specified in this example. Drive A is the 
upper drive on the unit, drive B the lower. 

What this command does is tell DOS to copy the following 
information from the keyboard into the Autoexec file, until a 
(Control z) is encountered. In this manner, any sequential file 
desired can be easily created. 

Try typing in the following sequence of commands as described 
below 



DATE 
TIME 
BASICA 
(Control z) 



(Carriage Return) 
(Carriage Return) 
(Carriage Return) 
(Carriage Return) 



The (Control z) followed by a carriage return will terminate the 
session, and tell DOS to write the hie to diskette. Once this file has 
been executed by the system upon initialization, the system will 
prompt the user for the date, defaulting to January 1st 1980, as per 
IBM format, then the time. Following the correct replies from the 
user, carriage returns or the correct date and time, the language 
BASICA will be loaded into memory and executed. 



If you wanted to load and run a specific program after BASICA, 
then modify the BASICA line as follows: 

BASICA FILENAME. BAS (Carriage Return) 

Filenames in IBM land have a maximum length of 8 characters, 
with an extension after a period of 3 characters maximum. If the 
program to be loaded has an extension of .BAS. indicating a BASIC 
program file, then it does not have to be specified in the Autoexec 
file. BASICA will automatically default to an extension of ,BAS 
when Loading and Saving to disk. 

Often, special tricks have to be performed via the Autoexec file to 
set up (he computer as your program requires. The maximum 
number of files allowed open at any time, the size of the file buffer, 
maximum 32768 bytes, the size of the serial buffer, and the mode 
of display are just a few of the parameters to be chosen. The system 
defaults to logical choices, but often when writing business soft- 
ware special parameters will be required. 

Although special emphasis has been placed on the Autoexec batch 
file, normal batch files can be pretty important too. Batch files can 
be created to execute special functions such as LOADing and 
executing programs of special importance simply by keying in a 
simple filename. Take for example the program Lotus 1-2-3. In 
DOS mode, execution of Lotus is done by keying in the name 
'lotus', followed by a carriage return. There is a batch file on 
diskette by the name 'lotus' that fires up the program automatically 
for you. The same applies for most commercial software packages 
available for the IBM PC. They have Autoexec batch files used for 
system start up. and they also have an easily remembered file 
name for start up from DOS without (Control) (Alt) (Del). Made 
simple for the business market. 

This article has been written as a very simple batch processing 
tutorial for those just getting into MS DOS, and does not make the 
disclaimer of trying to inform you of all the special tricks batch files 
can perform. It is just a method to get the ball rolling for IBM PC 
mindset to set in. To really get to know your DOS, read through a 
few of the many MS or PC DOS books on the market. Some are 
pretty poor, but a few will shine through. If you actually have the 
PC-IO. or some other MS DOS machine, then read through the 
manuals supplied. Though the manuals tend to be brief, knowl- 
edge can be attained for the price of a little time. 

So much for force feeding you DOS. Following this is a summary of 
DOS and BASIC commands that I hope may one day come in 
handy for you. 

And lastly, although the PC-10 is a powerful machine^ it is an IBM 
PC clone that will not be making a regular appearance in the pages 
of The Transactor. Placing the Commodore label on the machine 
does not justify using precious magazine space, especially consid- 
ering the other publications dedicated solely to this system. Life 
was so much simpler when Commodore was Commodore. 
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Commodore PC-10 Microsoft BASIC Command Summary 

You will find thai most of the keywords are identical to Commodore BASIC, plus many more just to keep your programming hours 
productive. With an equivalent of 175 commands at your access, sleepless nights will soon become a reality. Without further delay, 
welcome to your nightmare W 



Command 

ABS 

AND 

ASC 

ATN 

AUTO 

BEEP 

BLOAD 

BSAVE 

CALL 

CDBL 

CHAIN 

CHRS 

QNT 

CIRCLE 

CLEAR 

CLOSE 

COM(n) 

COMMON 

CONT 

COS 

CSNG 

CSRLIN 

CVl 

CVS 

CVD 

DATA 

DATES 

DATES 

DEFFN 

DEFINT 

DEFSNG 

DBF DBL 

DBF STR 

DEF SEG 

DEFUSR 

DELETE 

DIM 

DRAW 

EDIT 

ELSE 

END 

EOF 

EQV 

ERASE 

ERR 

ERL 

ERROR 

EXIT 

EXP 

FIELD 

FILES 

FIX 

FOR 

FRE 

GET 

GET 

GOSUB 

GOTO 

HEXS 

IF 

IMP 

INKEYS 

INP 



Type Description 

Func Returns absolute value 

Boolean: X AND y = 1 If x,y= l,ottierwise = 
Func Returns Ihe ASCII value of the lefl most char in a string 
Func Returns the arc tcin^ent of a value expressed in radians 
Cmri Sets auto line numbermg during edit mode 
Func Produces a 'beep' sound from speaker 
Cmd loads from disk into user specilic location in RAM 
Cmd Saves specific ranges of RAM onto diskette 
Stmt Transfers control from BASIC to machine code 
Func Converts value to double precision number 
Stmt Loads & runs prg from disk, allows passing of variables 
Func Returnsthestringequivalentof an ASCII value 

Func Rounds values to next whole number 

Stmt To draw an ellipse on the screen 

Cmd Sets ail variables, strings, and constants to 0, close files 

Stmt Close a specific file channel 

Stmt En able /disable trapping of comm. activity 

Stmt To set-up for passing of variables to chained program 

Cmd Continue program execution after a break encountered 

Func Returns the cosine of a value expressed in radians 

Func To convert a value to a single precision number 

Vrb! Returns the current row position of the cursor 

Func Converts a 2 byte string mio its signed decimal equivalent 

Func Converts a 4 byte string mto its signed decimal equivalent 

Func Converts a 8 byte siring into its signed decimal equivalent 
Stmt [ndicatorloprogram that data lor READ exists on the line 

Stmt Sets the date Irom a user defined string (MM-DD-YY) 

Vrbl Retrieves the current date from string DaTE$ 

Stmt Defines a user specified function 

Stmt To declare variable types as integer 

Stmt To declare variable types as single precision numbers 

Stmt To declare variable types as double precision numbers 

Stmt To declare variable types as siring of 0-255 chars 

Stmt To define address lor BLOAD, BSAVE, CALL, etc 

Stmt To specify start address of asm rln to be called by USR 

Cmd Deletes specified sections of BASIC 

Stmt Used for setting up dimensioned arrays in memory 

Stmt Allows drawing ol high resolution displays on the screen 

Cmd Display a specific line from BASIC for editing 

Cmd Executes when preceding IF statement fails 

Stmt Ends program execution and returns to OK prompt 

Func Returns a value of (-1) at the end of a disk NIe in read 

Boolean: X EQV y =1 ifx,y=^OJ or x,y= l.Oelse^^O 
Stmt Eliminates specific dim'd arrays from memory 
Vrbl Returnstheerrorcodeassociatedwiih an error 
Vrbl Returns the error line number associated with an error 
Stmt To allow simulation of a specilic error condition 
Cmd If SHELL cmd used prior, returns user to BASIC from DOS 
Func To return a value to the power of (n) 
Stmt To allocate space for variables in a random hie buffer 
Cmd Performs a directory of a specific diskette 
Func To truncate a numt>er to a whole number 
Stmt FOR/NEXT: auser defined loop of events to perform 
Func Returns the amount of Jree RAM in allocated sir mem 
Stmt To read a record from a random file into a variable buffer 
Stmt To transfer graphic images from the screen 
Stmt Go to a specific sub-routine in BASIC, with return 
Stmt Go to a specific section of BASIC code 
Func Return the hexadecimal equivalent of an ASCII value 
Stmt Question ; IF (condition) then perform an operation 

Boolean: X IMP y = I ify=l or x,y^O,Oelse = 
Vrbl Gel a character from the keyboard buffer 
Func To return a byte from a specific machine port 



Stmt Input a response from the keyboard 

Stmt Input a string of characters from diskette 

Stmt To reiurn a string ol (n) chars from keyboard buff or file * 

Func To search for a string within a string, reiurn with position 

Func Returns the integer value of a floating point number 

Stmt ', " exp " ;ON;OFF;LIST; - assign f-keys/lurn on-offjist 

Stmt To initiate and terminate key capture in program mode 

Cmd Delete a specific file from diskette 

Func Returns a user specified section of string from a string 

Func Returns the length of a string 

Stmt Assumed command for assigning variables : Optional Use 

Stmt To draw a high resolution line on the screen 

Stmt Input a line from keyboard of (1-254) chars no delimiters 

Stmt Input a line (254 max) Irom sequential file, no dehmilers 

Cmd Display all or user defined section of BASIC prg 

Cmd To list all or pari of BASIC program in memory to printer 

Cmd Load a file from diskette into BASiC memory 

Func Returns current position of data in buffer for file access 

Stmt Positions and/or turns on cursor anywhere on the screen 

Func Returns number of bytes allocated to a file 

Func Returns the logarithmic equiv. of a number in rads 

Func Returns current position of line printer print head 

Stmt As PRINT; print data at the line printer 



LSET 

MERGE 

MIDS 

MID$ 

MKDS 

MKIS 

MKSS 

MOD 

NAME 

NEW 

NEXT 

NOT 

OCTS 

ON 

ON COM(n) 

ON ERROR 

ON KEY(n) 

ON PEN(n) 

ON STRIQn) 

OPEN 



Stmt Move data from mem to random file buffer, left justified 
Cmd Merges a BASIC program in ASCII lormat from disk 
Func Returns a string from withm a siring by user specified defs 
Stmt Replaces a section of a string with a user specified siring 
Func Converts numerit^ value to string; double prec expr 
Func Converts numeric value to string value; integer expr 
Func Converts numeric value to string value; single prec expr 
Modulas arith op: 13 MOD 4 = 1 (13/4=3. remainder I) 
Cmd Changes the name of a file on diskette 
Cmd Effectively erases a BASIC program Irom memory 
Stmt FOR/NEXT: a user defined loop of events to perform 

Boolean Operand; NOT X = lijx = 0else = 
Func Returns a string ol Ihe octal value of a value 
Stmt ON (condition) GOTO/GOSUB line", line*, line', etc 
Stmt ON (specific comm condition) GOTO/GOSUB etc. 
Stmt ON (error condition) GOTO/GOSUBetc. 
Stmt ON (specific key occurence) GOTO/GOSUB etc. 
Stmt ON (specific light pen loc) GOTO/GOSUB etc. 
Stmt ON (specific joy slick cond) GOTO/GOSUB etc 
Stmt Open a specific file channel for access 
OPEN " COM(n) Stmt Allocates a RS232 async communications buffer 
OPTION BASE Stmt To declare minimum value for array subscripts 

Boolean: X OR y = I ifxand/ory=l else = 
Stmt To send a byte to a machine output port 
Stmt To fill in a graphics figure with the selected attribute 
Func Returns the content of a user defined location in memory 
Stmt ON,OFF,STOP; To read the light pen 
Func To read the numeric value read by the light pen 
Stmt To play music from siring data in program 
Func To read attribute value of a pixel from the screen 
Stmt Stores a user dehned value in a user dehned loc in RAM 

Func Returns the current cursor position on the screen 
Stmt Print a string of characters to the screen 
Stmt To print strings or numbers with formatting to the screen 
Stmt Print a string of characters to an open file 
PRINT' USING Stmt To print strings or numbers with formatting to an open Tile 
PSET Stmt To display a specific pixel on a high resolution screen 

PRESET Stmt To display a specific pixel on a high resolution screen 

PUT Stmt To write a record from a random file buff to a rnd disk file 

PUT Stmt To transfer graphic images to the screen 



OR 

OUT 

PAINT 

PEEK 

PEN 

PEN 

PLAY 

POINT 

POKE 

POS 

PRINT 

PRINT USING 

PRINT" 
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RANDOMIZE Slml 


READ 


Slml 


REM 


Slml 


RENUM 


Cmd 


RESET 


Cmd 


RESTORE 


Slml 


RF.su ME 


Slml 


RETURN 


Slml 


RIGHTS 


Func 


RND 


Func 


RSET 


St ml 


RUN 


Cmd 


SAVE 


Cmd 


SCREEN 


Func 


SCREEN 


Slml 


SGN 


Func 


SHELL 


Cmd 


SIN 


Func 


SOUND 


Slml 


SPACES 


Func 


SPC 


Func 


SQR 


Func 


STICK 


Func 


STOP 


Stmt 



To re-seed the random number generator 

Read DATA elements from BASIC memory 

Indicator for a com men I line in BASIC texl 

Changes the numbering of a BASIC program in edit mode 

Close all files and write FAT back to diskeiie 

Restore all DATA in the slarl for a READ 

Resume program execution alter ON ERROR trap 

GOSUB/RETURN: relurn from BASIC sub-routme 

Relurns a user specified section of siring from a siring 

Relurns a random number expressed in decimal nolalion 

Move data from mem lo random file buffer & right juslify it 

Slarls execution of a BASIC program in memory 

Saves a BASIC program in memory lo diskette 

To relurn Ihe value of a specific char on the screen 

To sel Ihe screen attributes 

Return ihe sign of a value 

Allows entrance inio DOS with return from DOS via EXIT 

Returns the sine value of a value expressed in radians 

To generate sound through the buill in speaker 

Createsastringof user defined length of ASCII (spaces) 

Spaces the cursor over (n) ' spaces on the screen 

Relurns the square root value of a value 

To return the x,y co-ordinates of the two joy sticks 

Stops BASIC execution, returns line * of termination 



STRS 

STRIG 

STRIG 

STRIC^n) 

STRINGS 

SWAP 

SYSTEM 

TAB 

TAN 

TIMES 

TIMES 

TRON 

TROFF 

USR 

VAL 

VARPTR 

VARPTRS 

WAIT 

WEND 

WHILE 

WIDTH 

WRITE 

WRITE* 

XOR 



Ftinc Relurns the numeric siring equivalent of a value 

Func ON,OFF; to relurn the status of the joy stick triggers 

Stmt To read the status of the joy slick triggers 

Stmt fn) ON.OFF^TOP; lo allow use of joystick by trapping 

Func Creates a siring of user defined length of one ASCII value 

Stmt Exchanges string variables with each other 

Cmd Pass control of Ihe computer back to DOS 

Func Tabulate the cursor on Ihe screen lo a specific position 

Func Returns the tangenl of a value expressed in radians 

Func To retrieve the current lime 

Stmt To set the current lime (HH:MM;SS) 

Cmd Turn trace of BASIC program on 

Cmd Turn trace of BASIC program off 

Func Pass control of a BASIC prg to asm rtn with relurn of vars 

Func Returns Ihe numeric value of a string expression 

Func To return the address in mem of the vrbl or file Ctrl block 

Func To relurn addr of Isibyleof data of vrbl before VARPTR 

Slml Wait for a cerlain condition lo be met before continuing 

Slml WHILE/WEND: performs loop till condition is true 

Stmt WHILE/WEND: performs loop till condition is true 

Slml Set column width of ihe screen or printer 

Slml To output data to Ihe screen in format 

Slml To write data to a sequential file lormatted 

Boolean: X XOR y = 1 ifx,y = 0,l or x,y=l.Oelse=0 



The Commodore PC-10 A Brief Look At MS DOS 2.1 1 

MS DOS 2. M , the latest floppy DOS released by Microsoft, is standard with the Commodore PC-10. For those of us who are familiar with 
Commodores DOS resident in the normal Commodore drives, this is a strange experience. The PC-10 doesn't have intelligent drives, 
therefore DOS has to be loaded into computer RAM, with disk control being performed by the computers on board processor. Due to this 
fact the drives tie up computer time to perform all disk activities. Although this is a great loss for fans of normal Commodore drives, this 
loss is more than made up for by faster disk access via DMA, direct memory access. The drives are dumb, but really quick. 

The purpose of this article is to provide a quick run down of the majority of DOS commands available with the standard PC-10. To fully 
utilize the power of the machine, a working knowledge of DOS is required. And so, the summary is born. Below is a quick reference of 
most of the commands available. Hope it helps. 



BREAK 

CHKDSK 

CLS 

COMP 

COPY 

CTTY 

DATE 

DEBUG 

DEL 

DIR 

DISKCOMP 

DISKCOPY 

ECHO 

EDLIN 

ERASE 

EXE2BIN 

FORMAT 

MODE 

PAUSE 

PRINT 

RECOVER 

REM 

REN 

SYS 

TIME 

TYPE 

VER 



Internal 

External 

Internal 

Externa] 

Internal 

Internal 

Internal 

External 

Internal 

Internal 

External 

External 

Internal 

External 

Inlernal 

External 

External 

External 

Internal 

External 

External 

Internal 

Internal 

External 

Internal 

Internal 

Interna] 



BREAK ON [d:] BREAK OFF [d:] 

CHKDSK [d]: 

CLS 

COMP filename. ext [d:] filename. ext 

COPY filename.exl [d:] filename. ext [/V] 

CTTY [Device] 

DATE [mm-dd-yy] 

DEBUG DEBUG iilename.ext 

DEL filename. exl 

DIR[d:][/P][/W] 

DISKCOMP [d:] 

DISKCOPY [&.] 

ECHO ON ECHO OFF 

EDUN 

ERASE filename. exl 

EXE2BIN filename.ex! [&.] [filename.ext] 

FORMAT [d:][/S] 

MODE device: specifications 

PAUSE [remark] 

PRINT filename.ext 

RECOVER filename,ext 

REM [remark] 

REN filename.ext [d:] filename.ext 

SYSd: 

TIME [hh:mm:ss] 

TYPE filename.ext 

VER 



Break Off, DOS checks for Break during printer input: Break On, chks always 

Ctiecks the diskelte and computer RAM, and reports back with status 

Clear the display screen 

Compares files on diskette and reports back differences 

Copies a specified file onto diskette, the same or different 

Changes the computer lo a remote terminal by re-directing its I/O to Device 

Displays current date assignment, and allows user modification 

High qualily machine language monitor for RAM or disk 

Deletes specific hies from the directory 

Performs a passive directory of a diskette to the display screen 

Compare Iwo diskettes, and reporls differences 

Copies the contents of one disk to another, formats as it copies 

Turns the screen Echo of commands in batch file On or Off 

Texl editor for creation and manipulation of sequential data files 

Delete a specific files from Ihe directory 

Converts an .EXE file to a .COM file 

Formats a diskette lo system compatibility 

Allows correct set-up for the Line Printer, Serial Port, and Display 

Suspends execution of a batch file till a key is pressed 

Spools data file from disk lo printer without affecting computer operation 

Recovers and re-creates files as best it can from disk errors 

Flags a commenl line in a batch file - displays without action 

Changes the name of a file on diskette 

Copies the DOS system files onto a specified diskelte 

Displays current time assignment, and allows user modification 

Prints the contents of a specified file to the screen 

Displays the version number and ID of the DOS in use 
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Speeding Up 

Your BASIC Programs 



■ ■ 

Dr. John W. Ross 
Sudbury, Ontario 



Analyze Program CPU Usage . . . And Attack the Slowest Parts! 



How would you like to be abie lo speed up your BASIC programs? 
Whether you use your computer lo print mailing lists, solve 
systems of partial differential equations, or write the ultimate 
interactive Star Wars fantasy simulation adventure game, it is a 
pretty safe bet that you wish your program ran faster. In this article 
I will show you how to speed up your programs; to do this, we will 
make use of a special program called a "profiler" to examine the 
program you want lo speed up - but more on this later, first let's 
lake a look at the problem of making a program run taster. 



The 80/20 Rule 

The well-known 80/20 rule applies lo programs as it does to many 
situations we encounter from day to day. What it means in terms of 
program execution is that most programs spend about 80% of the 
time executing only 20% of the code in the program. 

The trick Eo speeding up your programs is to identify the 20% of 
the code where the program is spending most of its time, and 
streamline it as much as possible - you can forget about the rest of 
the program. 



Code Optimizalion 

Now streamlining a program, or making it run faster, is an art in 
itself and a complete discussion would easily hll the entire maga- 
zine. For our purposes though, there are basically only a couple of 
ways to make a piece of code run taster - the first is to use a 
different algorithm, and the second is lo use what I call code 
"tweaking'\ Modifying the algorithm is the best method if you can 
do it. For instance, say you have a mailing list program and you 
have determined that a bubble sort you were using to alphabetize 
the names was slowing things down. Yourbeslbet would be louse 
a belter sorting algorithm, a Shell sort or Quicksort, say. 

Sometimes though, this approach cannot be used, either because 
there is no belter algorithm, or if there is you do not know what it 
is. In this case we musl resort to tweaking; by this I mean the whole 
set of techniques or '^tricks" which make a program run faster - 
things like not executing REM statements, moving calculations 
outside FOR-NEXT loops where possible, using variables instead 
of constants, etc. Often, these techniques are not too well docu- 
mented, but magazines like Transactor are excellent places to find 
out about them. 

As a final resort, you can take the offending section of code and 
rewrite it in machine language. H you have done a good iob 
identifying the slowest part of your program, this procedure can 
lead lo really dramatic improvements in execution time. This 
approach usually requires an intimate knowledge of the computer, 
and many are reluctant to lake it if they do not have to. 



The strategy for optimizing code with respect to execution lime is 
quite straightforward, but it requires us to hnd the parts of our 
programs which need optimizing. This is the problem; when 
dealing with even a moderate size program of 100-200 lines, it 
may be impossible to say for sure where the slowest part or parts 
are - this is where the profiler comes into play. 

The Profiler 

The profiler is a program that runs concurrently with your pro- 
gram and actually measures the amount of time your program 
spends executing each statement. When your program is finished, 
the profiler prints out a histogram (an execution time profile) 
showing the relative amount of time your program spent on each 
statement - by zeroing in on the histogram peaks, you can easily 
see where improvements are required. Before going into the 
prohler design, 1 would like lo discuss an example which shows 
how it can be used. 

An Example 

r 

Some time ago 1 wrote a 6502 Assembler in BASIC, Although it 
works very well, it was frustratingly slow. Fig. 1 shows an execu- 
tion profile of the program produced while it was doing an 
assembly.Outof 258 lines in the program, only 49 (19%) showed 

up on the prohle; of these 49 ''slow" statements, we can see by eye 
that the program spent most of its time on 9 (18%) of them (the 80/ 

20 rule can often be applied recursively like this). 



n fact, we see that there were three bad areas in the program; lines 
5-7, lines 12-17 and line 1 38. The first two locations were part of a 
parsing routine which scans the input lines - as such they were 
among the most frequently executed statements in the program. 1 
was able to improve them by some judicious tweaking. The code at 
line 1 38 was doing a linear search through a list of opcodes; I was 
able to improve this part by switching search algorithms to a much 
faster binary search. 

These modifications resulted in a signihcanf improvement in 
execution speed of the assembler - without the profiler it is safe to 
say that 1 could not have made the modifications since I would not 
have known where they were required. Now let's look at the 
profiler design. 

Profiler Design 

The profiler is written for a CBM 8032 micro, but should be readily 
adaptable to other CBM models. It is based on the CBM's 60-cycle 
interrupt; 60 hmes each second the CBM's 6502 processor runs an 
interrupt - during this time the video display is updated and the 
keyboard is scanned. It is quite easy to patch into the interrupt 
rouhne. This is an accepted method for running programs concur- 
rently on Commodore computers. What 1 have done is add some 
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code to examine the storage location which contains the number 
of the BASIC line currently being executed - a counter for that line 
is then incremented. Thus, 60 times per second the current line 
number is sampled and a count maintained for each line; the total 
of these counts is proportional to the amount of time the program 
spent executing each line. The counts are displayed in histogram 
form for a visual indication of the execution profile. 

The count for each line is maintained in a 1 6 bit word and 4k bytes 
of memory are set aside for counts in the present version of the 
program. 

The profiler is written in two parts - the first part is the interrupt 
extension which is placed in theCBM's first cassette buffer (starhng 
at memory location $027A} and does the actual profiling - this part 
is in machine language; the second part is a BASIC program which 
is loaded after the program to be profiled has executed - this reads 
the counts and produces the histogram. The assembly listing for 
the hrst part is given in Program 1 and the BASIC listing for the 
second part in Program 2- Program 3 is a loader which loads the 
machine language program {Program 1) into memory. 

Using the Profiler 

A typical usage pattern would be; (1) load the machine language 
loader (Program 3) and run it - this resets the top-of-memory 
pointers and loads llie interrupt extension into the first cassette 
buffer, (2) load the program to be profiled, insert a SYS 634 
statement near the beginning, and SYS 658 and SYS 669 state- 
ments (these entry points are explained below) as required to 
profile the appropriate sections of code, (3) run the program to be 
profiled, (4) load the prohle generator program (Program 2) and 
run it. In more detail, here are the three components of the 
profiler: 



Profiler Components 

Consider the assembly listing in Program 1 . The program 
has three entry points: SETUP, ACTIVATE and KILL, 
These are accessed respectively by executing one of . . . 

SYS 634 
SYS 658 
SYS 669 

. . . from the BASIC program to be profiled. These are 
actually three short subroutines. SETUP initializes the 
counters in the working storage area to zeroes, ACTI- 
VATE patches in the interrupt extension and KILL re- 
moves it. When the extension is patched in, the program 
segment beginning at MAIN is run automatically 60 
times per second. By executing the appropriate subrou- 
tine, it is possible to turn the profiler on and off -you may 
not want to profile your whole program. 

The second part of the profiler is the histogram generator 
shown in Program 2. This is a BASIC program which 
examines the counts for each line and displays them in a 
histogram format. The statement which consumed the 
most execution time is assigned a bar 70 columns wide in 
the histogram. Other statements are assigned bars whose 
length is proportional to the amount of execution time 
they consumed relative to the 70-coIumn statement. If it 
turns out that a statement's bar would be less than 1 
column wide it is not shown. 



4 

S 

6 

7 

8 

10 

II 

13 

13 

14 

17 

27 

ZB 

33 

34 

3S 

36 

37 

3Q 

40 

43 

5& 

04 

&0 

61 

64 

83 

84 

89 

67 

93 

99 

103 

137 

138 

139 

141 

143 

143 

191 

196 

171 

leo 

181 
183 
183 
183 
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Look at the listing of Program 2 - it is quite short. The "4" in 
statement 1 00 causes the program output to be directed to a printer 
(it is intended for use with an Epson MX-SO). If this is changed to a 
"3", i.e. "OPEN 1,3", the output will go to the terminal screen 
instead of the printer. 

Finally we have the machine language program loader given in 
Program 3. This is a convenient way to load the program into the 
computer, and it serves another very important function. Nor- 
mally, RAM up to hex location $8000 (just below the screen 
memory) is available for use by BASIC. We require a 4K working 
storage area and as is usual with a PET, we allocate addresses 
$7000-$8000 to this purpose. This working storage must be sealed 
off from BASIC so that it will not be overwritten. This is done by 
resetting the top-of-memory pointers in line 110 of Program 3. 
This is a mandatory step before using the profiler. 

There is one important restriction to observe about using the 
profiler - due to its design, programs to be profiled are only 
allowed to have statement numbers between 1 and 2048 - if the 
code to be profiled has statement numbers outside this range you 
will have to use a renumbering utility before running the profiler. 
In any case you are limited to a 2048 line program, though this 
should not be a problem - very large programs should be written 
in modules anyway, and these modules can be profiled individu- 
ally. 

Summary 

The execution profiler can be one of your most valuable tools in 
the program design and modification process. So, don't just sit 
there wondering why your program is taking .so long to generate 
the Klingon invasion force - profile it and see! 

Figure 1: Sample Profile Of A BASIC Program (V2 actual size) 




Th# nomociof 



67 
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Program 1:6502 As 


■sembiy Language Portion Of The Inter 
= $027a 


rupt-[ 


driven Profi er 




pj 


100 • 




NH 


660 era #$78 




EO 


110 ; 








OA 


670 sla zw + 1 




NA 


120 zw 


■ iiii 


$00 




DH 


680 da (zw),y 




EA 


130 iv 


= 


$90 




NH 


' 690 tax 




HD 


140 cine 


= 


$36 




J 


700 ;nx 




LK 


150 intrpt 


— 


$e455 




KH 

1 


710 txa 




GB 


160 ; 








JN 


720 sta (zw),y 




KC 


170 setup 


^ 


+ 




AF 


730 ; 




MO 


180 


da 


#$70 




LN 


740 out = * 




OC 
DL 


190 
200 


sta 
da 


ZW+ 1 

#0 




CE 


750 mp intrpt 












A 


210 


sta 


zw 






LK 


220 


tay 


1 


Program 2: BASIC Program To Display Profiler Results 




MF 


230 ■ 










1 T 1 1 

JG 


^^ ^^ \^ f 

240 loop 


± 


* 


LO 


1 00 rem profi er - basic port on 




DA 


250 


sta 


(zw),y 


DC 


110 open 1,4 




EJ 


260 


nc 


zw 


EL 


120dimtt''/o{2048,2}: -O.tm-0 




HK 


270 


bne 


loop 


LG 


130 d = 8''256.lo- 7*4096: hi- o + d 




KG 


280 


inc 


zw+1 


KJ 


140 fori- otohi-1: sn = i-o 




AL 


290 


dx 


ZW+ 1 


KB 


1 50 t - peek(i + d)*256 + peek(i) 




FN 


300 


cpx 


#$80 


PJ 


160ifi-0then190 




PM 


, 310 


bne 


oop 


HO 


1 70 j = j + 1 : H%(j.1) - sn: tt%(j,2) =t 




MC 


320 


rts 




KG 


■ 1 80 if t>tm then tm - 1 




AM 


330 ; 






CM 


1 90 next 




EK 


340 activate 


^ 


* 


EM 


200fori = 1 toj 




HP 


350 


sei 




FJ 


210a$-chr$(181) 




JC 


360 


da 


#<main 


MG 


220 pc - int(tt%(i,2)/tm*70) 




NA 


370 


sta 


iv 


NF 


230 if pc-0 then 260 




JD 


380 


da 


#>rnain 


BL 


240forj = 1 topc:a$ = a$ + chr$(223): next 




DO 


390 


sta 


iv+ 1 


HN 


250 pnnl#1,right$("[3 spaces]" 




OB 


400 


ci 






+ slr$(lt%(i,1)).4)'[1 space ";a$ 




G 


410 


rts 




lA 


260 next 




KB 


420 ; 






LL 


270print#1: cosel 




DA 
BF 


430 kill 
440 


sei 


• 


IB 


280 end 








CB 


450 


Ida 


i¥<intrpt 






HG 


460 


sta 


iv 


Program 3: BASIC Program To Load Profiler 




CO 


470 


Ida 


#>intrpt 
iv+1 






ND 


r J \J 

480 


Sta 


<J 


100 rem profiler oader 




H 


490 


cli 




PC 


1 1 poke 52,0: poke 53, 1 1 2: dr 




AO 


500 


rts 




OB 


1 20 read n,l: for i = 1 to n. read x: poke ,x: = + 1 




EH 


510 ; 








: next: end 




PD 


520 main 


^ 


« 


NP 


130 data 83,634 




NF 


530 


dy 


#0 


GJ 


140data169, 112,133, 1,169, 0,133, 




HL 


540 


da 


dine 


BJ 


150 data 168, 145, 0, 230, 0, 208, 250, 230 




EN 


550 


sta 


zw 


P 


160data 1,166, 1,224,128,208,242, 96 




CL 


560 


Ida 


cine + 1 


FN 


170 data 120, 169, 168,133,144, 169, 2, 133 




LA 


570 


ora 


#$70 


GF 


180 data 145, 88, 96,120,169. 85,133,144 




EL 


580 


sta 


zw+ 1 


NA 


190data169,228,133,145, 88, 96,160, 




JB 


590 


da 


(zw),y 


FA 


200 data 165, 54,133, 0,165, 55, 9,112 




DC 


600 


tax 


I r r 


LO 


210 data 133, 1,177, 0,170,232,138,145 




OD 


610 


inx 




AN 


220 data 0,208, 13,165, 55, 9.120,133 




AC 


620 


txa 




NP 


230data 1,177, 0,170,232,138,145, 




PH 
HP 


630 
640 


sta 
bne 


(zw),y 
out 


MJ 


240 data 76, 85, 228 






_ 


MA 


650 


Ida 


chne+ 1 




1 TfMnQRiocior 
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Hi-Res Text Maker 



Darren James Spruyt 
Gravenhurst, Ontario 



Scaled Text For Your Hi-Res Screen! 



This program allows one lo reproduce any of the C-64 charac- 
ters on the hi-res screen with its X dimension enlarged up to 
X25 and the Y dimension up to X40- This is useful for any 
program that needs a slightly larger text size. 

The program is very easy to use. The following is a list of the 
parameters needed by the routine and where to poke the 
needed values. 

POKE USE 

678 X co-ordinate (0-39) 

679 Y co-ordinate (0-24) 

681 X multiple for size (t-40) 

682 Y multiple for size (1-25) 

683 char number (poke values) 

820 overwrite (1 = yes/0 = no) 

821 color byte 

The overwrite allows character to be put on top of each other 
and 'mesh' together rather than having the area erased before a 
new character is put on. The color bytes upper 4 bits or nybble 
are for the character color while the lower four bits specify the 
character's background color. 

There are also some enabling SYS's: 

SYS 32768 makes the hi-res screen visible; 

SYS 32771 clears the hi-res screen and fills color memory 

with the background color; 
SYS 32774 reverts back lo the original text screen, on which 

no changes have been made; 
SYS 32777 plots the character. 

The program uses memory from $8000-81C5 for the program 
and from $5COO-$8000 for the hi-res screen and color map. 

To protect the hi-res screen and the color map from being 
overwritten, set the limit of memory with: 

POKE 55,0; POKE 56,92 

Listing 1 is a short demonstration of the hi-res text program, 
listing 2 is the BASIC loader, and finally listing 3 is the PAL 
source code. 



Listing 1: BASIC Demo Program 



GA 

MJ 

LF 

AK 

JM 

BP 

GD 

HG 

HN 

CD 

BE 

IJ 

NJ 

LC 

LH 



JF 
NN 
lO 
AD 
CA 
OC 
NF 
BD 
GD 
PD 
NE 
HM 
MA 
FF 
BJ 
Bl 
ID 
MG 
Kf 
CJ 
KN 
CJ 
NB 
K\ 
LP 

LB 
PO 

EP 
KA 

LA 

OA 



1 00 rem sample program to use hi-res 

1 1 rem text 

1 20 rem darren james spruyt 85/06/01 

1 30 rem 

140 poke 53281 ,0 :rem set bg color 

150 sys 32771 :rem clear hi-res screen 

160 sys 32768 :rem turn screen on 

1 70 rem 820 is overlap reg 

180 rem 821 is color reg 

190 rem 681 isxsizereg 

200 rem 682 is ysize reg 

210 rem 679 is y pos reg 

220 rem 678 is X pos reg 

230 rem 683 Is char reg 

240fork = 1 to 15 

250a$ = '"the" 

260 poke 821, k*16 

270 poke 681 ,2 

280 poke 682.2 

290forj=1 tolen(a$) 

300 poke 679.3 

310poke678,24-(0-1)*3) 

320 poke 683, asc(mid$(a$J,1)) 

330 sys 32777 

340 next j 

350 poke 681 ,8 

360 poke 682,9 

370 poke 821, k*16 

380 poke 679, 10 

390 poke 678,1 

400 poke 683, ascft") 

410 sys 32777 

420forn=1 to 15 

430a$ = "ransactor'' 

440 poke 681,3 

450 poke 682,2 

460 for 1 = 1 tolen(a$) 

470c-n + (j-1) if c>15thenc = c-15 

480 poke 821,0*16 

490 poke 679,14 

500 poke 6787 + {(j-1)'3) 

510 poke 683, asc{mid$(a$,jj)) 
520 sys 32777 

530 next j 
540 next n 
550 next k 
560 sys 32774 



TTwTrantoctor 



6Q 
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Listing 2: BASIC Loader 



DD 
JF 

BM 

PG 

DH 

GH 

KJ 

GC 

DH 

PP 

GK 

OK 

OH 

FD 

IF 

DN 

BO 

JB 

BG 

EF 

HO 

IG 

LM 

MA 

DD 

CE 

LI 

BJ 

NJ 

8A 

DL 
FM 
DN 
IF 
GF 
GB 
LD 
CA 
KO 
HA 
AD 
CL 
EC 
GB 
GL 
LA 
PP 
AB 
LM 
Al 
IB 
BE 
AC 
KH 



1 00 pnnf'Hnih-res text maker by 

110 prinl"darren james spruyt 

120print"asofjune1/85 

130 rem start of basic loader code 

140 reada.b.d 

150 print"UnQw loading in code." 

leOfor k = atob 

170 read c;pokek,c 

1 80 poke 1 024,c;poke55296,c 

190ch = ch + c:next 

200 if chOd tfien print' 'data error' ' ;stop 

210 prinl"Hdone.";end 

220 data 32768 , 33223 , 47644 

230 data 76, 95.129, 76,143,129. 

240 data 129, 169. 96,133, 35,169, 

250 data 167, 2,240, 12, 24,105, 

260 data 2, 230, 35, 230, 35, 202, 208, 244 

270 data 174, 166, 2,240, 10, 24,105, 8 

280 data 144, 2,230, 35,202,208,246,133 



290 data 34, 120, 165, 
300 data 169, 0, 133, 
310 data 20, 6, 20, 
320 data 21, 6, 20, 
330 data 101, 21,133, 



1, 41,251,133, 1 
21,173,171, 2,133 
38, 21, 6, 20, 38 
38, 21, 24,169,216 
21,160, 7,177, 20 



400 data 153, 60, 
410 data 2, 169, 
420data141, 186, 
430 data 189, 60, 



340 data 153, 174, 2,136, 16,248,165, 1 
350 data 9, 4,133, 1, 88,169, 0,141 
360 data 1 87, 2,141,1 73, 2, 1 73, 1 70, 2 
370data141, 172, 2, 173, 173, 2, 141, 185 
380data 2,174.187, 2,160, 7,126,174 
390 data 2,176, 3.169, 0. 44,169,255 

3,136, 16,240,126,174 
0, 141,182, 2, 169, 8 
2,162, 0,172,169, 2 
3,240, 7, 56, 46,182 
440data 2, 76,176,128, 24. 46.182, 2 
450 data 206, 186, 2,240, 11.136,208,232 

8,208,224, 76,241, 128 
2, 142,184, 2,172.185 
52, 3,240, 2, 177, 34 
2, 145, 34, 169, 0, 141 
500data182, 2.169, 8,141,186, 2,173 
510datal85, 2, 24,105, 8.141.185, 2 
520 data 172, 183, 2,174,184, 2, 76.181 
530 data 1 28, 238, 1 73, 2, 1 73, 1 73, 2, 201 
540 data 8,208, 18,169, 0,141,173, 2 

34, 105. 64,144, 2,230 

35, 133, 34,206.172, 2 
76, 115, 128,238, 187, 2 

2,201, 8,240, 3, 76 

590 data 109, 128, 169, 92,133, 21,169, 

600 data 174, 167, 2,240, 10. 24,105, 40 

610 data 144, 2,230, 21,202,208,246, 24 

620 data 109, 166. 2,133, 20,144, 2,230 

630 data 21,174,170. 2,172.169, 2,136 



460 data 232, 224, 
470 data 140, 183, 
480 data 2, 173, 
490 data 13.182, 



550 data 24,165, 

560 data 35,230, 
570 data 240, 3, 
580 data 173, 187, 





CI 


640 data 173, 53, 


3,145, 20,136, 16,251 . 




HE 


650 data 165, 20, 


24, 105, 40, 144, 2,230 




LN 


660data 21, 133, 


20,202,208,230, 96, 173 




KP 


670 data 17,208, 


9. 32, 141, 17,208, 169 




DN 


680 data 120, 141, 


24.208,173, 0.221, 41 




AC 


690 data 252, 9, 


2,141, 0,221, 96, 173 




OD 


700 data 17,208, 


41,223,141, 17,208,169 




BJ 


710data 21, 141, 


24,208,173. 0,221, 41 




D 


720 data 252, 9, 


3, 141, 0,221, 96,160 




KK 


730 data 0,169, 


96, 133, 21,132, 20,162 




DB 


740 data 32, 169, 


0,145, 20,136,208,251 




D 


750 data 230, 21, 


202,208,246, 173. 33,208 




PM 


760 data 41, 15, 


133, 2, 10, 10, 10, 10 




GO 


770 data 160, 0, 


5, 2, 153, 0, 92, 153 


76, 119 


FG 


780 data 0, 93, 


153, 0, 94, 153,232, 94 


0, 174 


CP 


790 data 200, 208, 


241, 96, 0, 0, 0. 


64, 144 









Listing 3: PAL Source Code 



GL 

EE 

GO 

FP 

EJ 

EL 

BH 

GB 

KJ 

OF 

LK 

NL 

LM 

IF 

IG 

NH 

Dl 

DJ 

DD 

BD 

CK 

HH 

II 

FA 

ED 

EN 
OF 

KG 

CP 

GH 

EC 

IM 
LP 



100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 



rem hi-res text maker 
rem by darren james spruyt 
rem box 1 226 
rem gravenhurst, Ontario 
rem pOc 1 gO 
rem 

sys 700 
.opt 00 
' - $8000 

base = $6000 
temp - $02b6 
tmpi = $02b7 
tmp2 = $02 b8 
pntrl - $02b9 
cntrl = $02ba 
charow = $02bb 
cntr2 = $02ac 
cntr3 = $02ad 
color = $0335 
additi = $0334 

4 

3 

;followinjrnp table 
jmp hion 
jmp clear 
jmp hjoff 

;start of code 
print = * 

;create base address 
Ida #>base 
sta $23 
Ida #<base 



;set high address 
;a = lo address 



TIm Tramoctof 



TO 



Vmwn»6,iMU>03 I 





DP 


430 


dx 


$02a7 


; character row 


BA 


990 


dy 


#$07 


;break bits 




GG 


440 


beq 


P1 


;for each 


FB 


lOOOzl 


ror 


$02ae,x 


;into bytes al 




PM 


450 p3 


cc 




;row 


FM 


1010 


bcs 


z2 


i$033c 




CA 


460 


adc 


#$40 


;add to base 


PB 


1020 


da 


#$00 






JE 


470 


bcc 


P2 


;addfess, 320 


BO 


1030 


■byte $2c 






CE 


480 


inc 


$23 


;or$0140 in hex 


LB 


1 040 z2 


da 


#$f{ 






FP 


490 p2 


inc 


$23 




PE ; 


1050 


sta 


$033c,y 






FD 


500 


dex 




;done 


NG 


1060 


dey 




;done break 




OG 


510 


bne 


p3 


;no 


GM 


1070 


bpi 


z1 


;no 




P 


520 pi 


dx 


$02a6 


; column address 


JM 


1080 


ror 


$02ae,x 


;finish rotation 




M 


530 


beq 


P4 


;for eachcoumn 


NO 


1090 


da 


#0 






FG 


540 p6 


cc 




;add8 


MP 


1 1100 


sta 


temp 


isetternp 




HB 


550 


adc 


#$08 


;tD the base 


JJ 


' 1110 


da 


#$08 






HM 


560 


bcc 


p5 


; address 


NN 


1120 


sta 


cntn 


;sel rotations 8 




PM 


570 


inc 


$23 ; 




JO 


1130 


dx 


#$00 






i PC 


580 p5 


dex 


1 


;doneprint - 


ON 


1140 z8 


dy 


$02a9 


;getxmultipe 




EM 


590 


bne 


p6 ; 


;no 


MA 


1150z5 


da 


$033c,x 


;test bitvaues 




ME 


600 p4 


sta 


$22 ; 


,save address 


PC 


1160 


beq 


z3 


izero means 




N 


610 ; 








J 


1170 


sec 




;rotatea 1 in 




AG 


620 ;copy 


char data from rom 




CG 


1180 


ro 


temp 






DN 


630 ;to$02ae 






DC 


1190 


mp 


z4 






NP 


640 


sei 




. ockout rq 


HK 


1 200 z3 


cc 




;rotateaO in 




JA 


650 


da 


$01 


i 


A 


1210 


ro 


tB[[lp 






BN 


660 

1 


and 


#%iniioii; 


make d rem 


DK 


1 220 z4 


dec 


cntrl 


;done 8 sh fts 




FP 


'■■ 670 

1 


sta 


$01 ; 


visible 


A 


1230 


beq 


z6 


;yes - to screen 




MN 


680 


da 


#$00 ; 


generate 


LB 


1240z7 


dey 




;checkmutipes 




NH 


690 


sta 


$15 




GP 


1250 


bne 


z5 


;do more 




IN 


700 


da 


$02ab ; 


indirect 


BO 


1260 


inx 




;checkal8bits 




01 


710 


sta 


$14 




DK 


1270 


cpx 


#$08 


; are done 




OJ 


720 


as 


$14 ; 


lased 


OF 


1280 


bne 


z8 


;no-domore 




AM 


730 


ro 


$15 




CE 


1290 


imp 


z9 


w 

1 




oc 


740 


asl 


$14 ; 


on 


EF 


1300z6 


^ 


* 


f 




EN 


750 


ro 


$15 




ED 


1310 


Sty 


tmpi 


;save y 




JE 


760 


as 


$14 ; 


character number 


LD 


1320 


six 


tmp2 


;save x 




10 


770 


ro 


$15 




E 


1330 


dy 


pntrl 


;gety pntr 




HA 


780 


cc 




times 8 


FM 


1340 


da 


addili 


irriesh mode 




FJ 


790 


da 


#$d8 




MA 


1350 


beq 


z23 


;no 




KO 


800 


adc 


$15 ; 


pus $d000 


OF 


1360 


da 


($22),y 


;getprev pattern 




FP 


810 


sta 


$15 




NC 


1370 z23 


ora 


temp 


;add new pattern 




CF 


820 


dy 


#$07 ; 


copy character 


NB 


1380 


sta 


($22),y 


;back to screen 




E 


830 1 


da 


($14),y 




KG 


1390 


da 


#0 


;seUemp tozero 




AJ 


840 


sta 


$02ae,y ; 


bit patterns 


DC 


1400 


sta 


temp 






NA 


850 


dey 






AG 


1410 


da 


#8 


isetcntr 




PH 


860 


bpl 


1 ; 


f ro[ r 1 rom 


Gi 


1420 


sta 


cntrl 






FO 


870 


da 


$01 




JP 

1 


1430 


da 


pntrl 


;add 8 tp pntrl 




HA 


880 


ora 


#%00000100 




iMH 

1 


1440 


cc 




:to get 




NH 


890 


sta 


$01 ; 


cose rom up 


HM 


1450 


adc 


#$08 


;to the next 




EK 


900 


cli 


1 


release irq 


KL 


1460 


sta 


pntrl 


;row 




PK 


910 


da 


#0 ; 


inilia ize 


J 


1470 


dy 


impl 


;restorexandy 




PA 


920 


sta 


ctiarow ; 


char pixel rows 


CD 


1480 


dx 


tmp2 






DD 


930 


sta 


cntrS ; 


screen pixe row 


ND 


1490 


mp 


z7 


;recurse 




JE 


940 z15 


da 


$02aa 




EA 


1 500 z9 


no 


cntr3 


;count pixe rows 




CE 


950 


sta 


cnlr2 ; 


ymu tip e size 


EK 


1510 


da 


cntrS 






00 


960 z13 


Ida 


cntrS 




EE 


1520 


cmp 


#$08 


; at eight 




HP 


970 


sta 


pntrl ; 


y va for screen 


EK 


1530 


bne 


zIO 


;nope 




A 


980 


dx 


charow ; 


current char row 


. HC 


1540 


da 


#$00 





ITw Tionioctor 
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GO 


1550 


sta 


cntr3 ; 


re- set counter 


GN 


2110 


sta 


$d01 8 ;set screen/map 







1560 


cc 






B 


2120 


Ida 


$ddOO 




HI 


1570 


da 


$22 ; 


add 320 


KH 


2130 


and 


#%11111100 




NE 


1580 


adc 


#$40 




EP 


2140 


ora 


#%00000010 




MM 


1590 


bcc 


z11 ; 


to the indirect 


MM 


2150 


sta 


SddOO ;sel vie chip 




JO 


1600 


inc 


$23 




BA 


2160 


rts 


;addresses 




IM 


1610z11 


inc 


$23 ; 


address ($22) 


JL 


2170hioff 


r^ 


* 




B 


1620 


sta 


$22 




NB 


2180 


Ida 


$d011 




CM 


1630 210 


dec 


cntr2 ; 


y muitipes 


BC 


2190 


and 


#%1 1011111 ;re-set bit map 




CH 


1640 


beq 


212 ; 


done 


PG 


2200 


sta 


$d011 




LF 


1650 


jmp 


z13 ; 


repeat previos ro 


EC 


2210 


da 


#21 




K 


1660Z12 


inc 


charow ; 


chr pixe row 


EO 


2220 


sta 


$d01 8 ireset screenmap 




KH 


1670 


da 


charow ; 




G 


2230 


da 


$ddOO 




Al 


1680 


cmp 


#$08 ; 


done ail 8 rows 





2240 


and 


#%11111100 




FJ 


1690 


beq 


z14 ; 


yes then finished 


DG 


2250 


ora 


#%0000001 1 




DF 


1700 


Imp 


z15 ; 


do next row 


ED 


2260 


sta 


SddOO ireset Vic chip 




PM 


1710214 




^ 




EI 


2270 


rts 


; address 




JG 


1 720 ;add co our as indicated 




OG 


2280 clear 


dy 


#0 




- - 


1730 


da 


nbc ; 


but d the 


M 


2290 


da 


#>base ; 


base address 




HJ 


1740 


sta 


$15 




GA 


2300 


sta 


$15 ; 


into 




MN 


1750 


da 


#$00 ; 


indirect 


GB 


2310 


sty 


$14 ; 


($14) 


1 


JP 


1760 


dx 


$02a7 




AD 


2320 


dx 


#32 ; 


do 32 pages 


i 


DL 


1770 


beq 


|2 


.address 


B 


2330 


Ida 


#00 ; 






PP 


1 780 j3 


cic 






AP 


2340 16 


sla 


{$14),y ; 


zero memory 




AN 


1790 


adc 


#$28 


;via base 


JO 


2350 


dey 






NA 


1800 


bcc 


J1 




KH 


2360 


bne 


t6 




JP 


; 1810 


inc 


$15 


;of$5c00 


PO 


2370 


inc 


$15 




E 


1820J1 


dex 






GO 


2380 


dex 




doneprint 


JA 


1830 


Dne 


J3 


;plus y pos *40 


AN 


2390 


bne 


t6 ; 


no 


1 


ID 


1840j2 


cc 






PE 


2400 


da 


$d021 ; 


pu 1 o d CO Of 




E 


1850 


adc 


$02a6 


;and x pos 


GF 


2410 


and 


#%00001 111; 


from vie chip 




MA 


1860 


sta 


$14 




ED 


2420 


sta 


$02 




PF 


1870 


bcc 


J7 




JC 


2430 


as 






GO 


1880 


inc 


$15 


;done 


DD 


2440 


asl 






PA 


1890J7 





« 




BJ 


2450 


as 


;shifttohigh 




DF 


1900 


\tix 


$02aa 


;get y size 


KN 


2460 


as 


;nybble 




LJ 


1910 6 


dy 


$02a9 


;ge! X size 


BP 


2470 


Idy 


#0 




LD 


1920 


dey 






BO 


2480 


ora 


$02 


; ow nybble 




EP 


1930 


Ida 


CO or 


;get color va 


OH 


2490 j53 


sta 


$5c00,y 


;fi 




K 


1940j4 


sta 


{$l4),y 


;put in mem 


II 


2500 


sta 


$5dOO,y 


; color 




LD 


1950 


dey 




;done X 


M 


2510 


sta 


$5eOO,y 


;area 




GO 


1960 


bp 


J4 


;no 


NL 


2520 


sta 


$5f00-24,y 


;up 




NL 


1970 


Ida 


$14 


;add 40 


CM 


2530 


iny 






CD 


1980 


cc 






LL 


2540 


^ne 


j53 




EG 


1990 


adc 


#$28 


ito the address 


CO 


2550 


rts 






NN 
K 


2000 
2010 


bcc 
inc 


5 
$15 


;done 


MN 


2560 .end 












NJ 


2020 |5 


sla 


$14 












1 


2030 


dex 




;doney 










IG 


2040 


bne 


6 


;no 










00 


2050 


rts 














FW 


2060 hion 


= 


* 












PK 


2070 


da 


$d011 












CK 


2080 


ora 


#%0010000C 


l;turn hi-res bit 










BA 


2090 


sfa 


$d011 












DN 


2100 


da 


#%oniiooc 


) 
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The SAVE® Debate Rages On 
- A Few More Observations 



SAVE® Gap Atlackr 

Finally, that smali ula?r that was actin^^ up every rime I used SAVE@ 
has started to Ileal. Thanks to Charles Whittern for demonslrating thai 
the BUG really exists. 

I used the SAVE® EXPOSED!!! program with a slight modification so 
that every time the directory is checked and the names of the program 
pairs SAVED® is printed on the printer along with the program-start 
trjck and sector. Also, the routine checks for any programs that start 
with the same track/sector (the clone phenomenon). When such a 
situation is detected, the program prints the two filenames and their 
track/sector pointers. So one can just RUN the program and do 
something else. Checking after 1 5 to 20 minutes would indicate that 
SAVE® has done its thing! 

I found that disks which have 'holes' in the directory are especially 
sensitive to SAVE®, I used such a disk and after about 7 RUNs there 
was a corrupted file. Theii [ scratched one of the clones, validated the 
disk and repeated the above once again with the same results. Then I 
ran DIRECTORY GAP REMOVER (Richard Evers, Transactor 5(6): 57. 
1985). Running SAVE® EXPOSED!!! required 34 RUNs before a file 
was corrupted again, I think directory gaps contribute somehow to the 
susceptibility of a disk to SAVE@-induced damage, 

I also found that to further guard against SAVE®, one should bring the 

file on which one is working (and which will be SAVED®) to the end 
of the directoiy. What I do is LOAD the file after RUNning GAP KILL, 
then SAVE it as "TEMP" Then I work with this file till I get it right 
using SAVE®, At this point I scratch the original file and SAVE TEMP 
with the right filename. I know this is tedious but I consider it much 
belter than loading SPEEDSCRIKr and finding that it is actually 
PIAN064 in disguise! 

Ranjan Bose, Winnipeg, Manitoba 

What We Have Here Is A Failure To Re-AUocate 

Charles Whittern^s July article on the 1541 SAVE® bug will no doubt 
elicit a flurry of activity on that long rumoured but previously uncon- 
firmed gremlin. A simple manifestation of the bug can be demon- 
straled as follows: LOAD a ten block BASIC program file and SAVE it 
four times (under different filenamesjIoanewlyNEWed disk. LOAD/ 
LIST the directory to confirm that 624 blocks are free, LOAD the 
program and SAVE® the fourth then the third file. Initialize the drive 
(or cold start your C-t>4) to gel rid of the previous BAM then LOAD/ 
LIST the directory again. Surprise! 634 BLOCKS FREE! A look at the 
BAM and file chains reveals that sectors used by the third file's 
replacement are not allocated in the BAM. That is, the original sectors 
occupied by file three are de-allocated normally but the newly 
occupied sectors do not get allocated. And there sits file three, 
accessible and functional but just waiting for a subsequent write to 
wander into its unprotected space. Why some SAVE@'s work OK and 
others do not is no doubt a crucial question. It is now clear that the 
SAVE® bug results from a failure to allocate, 

Phil McBrayer, Lexington, KY 



The Relentless SAVE® 

Accolades to you and Charles Whittern for your definitive work with 
"SAVE With Replace Exposed!!", 

I would like to mention two associated thoughts or suggestions or 
questions, however they may be taken: 

l.Thefirst lime Save® bit me, about a year ago when I had had my 64 
for four or five months, the names of a program about 30 blocks and a 
program of about 8 blocks interchanged- My point is that as I 
remember, and it was quite a while ago, there was no way that I could 
scratch the two programs and put them back in right with plain 
"save". They insisted on being reversed, I ended up putting programs 
I wanted to keep on a new disk and re-formatted the old disk. If that is 
true, it ought to he some sort of a hint of what gets mixed up. 

2. When I bought my 64, I bought Easy Script, which I have used 
heavily and love more than you would ever believe. Praying that what 
I am about to say doesn't bring the roof down on me (I am "knocking 
on wood" madly}, Rasy Script has never loused with replace for me, 
and 1 have used it far, far more than I have used Save® with plain 
Basic programs. Of course. Easy Script is machine language, pro- 
tected, and for all ( know it may Scratch before Saving. It wouldn't be 
hard lo manually Scratch before Saving because Easy Script has a slick 
disk mode which doesn't affect the text in memory, but I just haven't 
as yet found it necessary. 

But beyond Easy Script, I have a program which I originated, in Basic, 
which I have updated 28 files weekly for 32 weeks, now, using Save® 
from within the program. Again knocking on wood, these updates 
haven^t as yet messed up. On the other hand, there is never much 
change in length of the files and they only occupy two blocks each. 
However, I happened to look at the directory the other day and the 
disk showed only 40 blocks free, I ran the "validate" command which 
increased free blocks to 584; I am hoping that this will not trigger a 
Save® problem. 

From these two cases I had a theory that Save® works perfectly from 
within a program, but Charles Whittern 's experiment rather blows 
that. Now I am wondering if sequential files, which both of my 
illustrations are, may be immune to the problem. 

At any rate, I hope that you experts and Commodore continue your 
research until all ramifications of the problem are known. 

H.C. Doennecke, Tulsa, OK 

Editors Note: Who knows, sequential fifes migfit be immune. Pro- 
gram files only use one data buffer wiifun ttie drive during creaiion, 
sequential files consume two. ft could be that Commodore drives are 
claustrophobic, therefore flying into spastic rages whenever con- 
fronted with the evil Save@. 



SAVE® Traps & Tips 



Editors Note: My J 541 seems to be immune to this problem. Jt may lfyouinsertVa!idateintotheLOAD-SAVE@Whittern loop, there's no 
be a problem that is dependent on ROM revision. longer any file damage. 
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You can also intentionally damage files by (a) LOADing a program, (b) 
SCRATCHing it and several other programs, then (c) SAVEing the 
program back to disk. Again, it you Validate the disk after the 
SCRATCHes, belore ihe SAVE, the DOS error is prevented. 

Finally, here's a good way to produce highly unreliable disks which 
will either not work, crash within a few days, or give occasional 
unexplained file errors: ( 1 ) Buy the cheapest bulk disks. (2) Don't reset 
the disk drive before you format them. And, (3) use a faster than 
normal method to formal ihem. The fast disk copier programs or 
speeded-up 1 54 1 ROMs are particularly handy for this purpose- 
John R. Menke, Mt. Vernon, !L 

SAVE® Goes One Degree Too Far 

1 read Charles H. Whitlern's article 'SAVE With Replace Exposed!!' in 
the Transactor. I consider this a very serious situation. 

Recently, a large part of my Master's Thesis was destroyed by a word 
processor I was using on the C-64, jeopardizing my degree^ When I 
wrote the software vendor, Ihey shrugged off the problem with a form 
letter blaming the SAVE. Tm not sure where the responsibility lies, but 
I feel thai Commodore and the software vendors have a responsibility 
to provide immediate relief. If they do not take this matter seriously, a 
law suit would be in order. 

Can you help me contact Charles Whittern and anyone else that is 
resolving this problem? 

Daniel Bresnahan, Bloomfield, New Jersey 

The Instigator RelurnsllI 

Thank you for publishing my research on the Save@ phenomena. If 
you have not yet sent the champagne, I would be happy to accept a 
copy of the new "Complete Commodore Inner Space Anthology" in its 
place. Perhaps this would be easier for you to ship, and it would be of 
much more uselo me as a non-drinker (Although I was going to keep 

the bottle as a trophy!). 

I modified my "SAVE® EXPOSED!!!'^ program recently to include a 
VERIFY of each program immediately after it is SAVED®. Also I 
added a POKE 198,0 to HALT the program if a VERIFY error occurred. 
This is skipped over it the VERIFY is ok. I figured this would catch the 
first incorrect replacement and HALT the program. After RUNning this 
version for a while, I was amazed to find that although each program 
LOADED, SAVED®, and VERIFIED ok, SAVE® was still up to its old 
tricks! After each SAVE® the VERIFY showed that the program just 
placed on disk matched byte for byte the one placed in memory. Yet 
LOADing and LiSTing the programs revealed several of them to be 
very different indeed! How can this be? Now I am truly baffled! I am 
sending this program along in hopes that it will aid in finding the 
source of the trouble. 

Another thing that i have discovered is that the BAf^ gradually fills as 
"SAVE® EXPOSED!!!" RUNs, until it is completely allocated. The 
block counts do not reflect this increase although the blocks free does 
(it takes several hours to accomplish this). 

Charles H. Whittern, President 
Lenawee Users Group - Commodore 64 {LUG-64) 

Hudson, Michigan 



100 rem "save® & verify" 

llOrenrimay 14. 1985 by c.h. whittern, box 21 5, 

hudson, mich 49247 

1 20 cs$ = chr$(147): qt$ = chr$(34) 




GL 

HJ 

IL 
JD 
NH 
NO 

IB 
EN 
AP 

EC 
PD 



130d1$ = chr$(17):d2S = dl$ + d1$:d3$ = d2S + 

d1$:d4$ = d3$ + d1$:d5$ = d4$ + dl$ 
140 for 1 = 1 to 5: read a$(i): next 
150i = int{rnd{0)'5) + 1 
160printcs$"load"qt$;a$(i);qt$",8'' 
170 print d4$''save"qt$'^@0;"a$(i);ql$'\8" 
180 print d3$"verify"qt$;a$(t);qt$'\8" 
190 print d5$"poke 196,0'^ 
200printd1$'1oad"qt$"save@ + verify"qt$",8'' 

210 poke 631, 19: for 1 = 1 to 5: poke 631 +i,13 

: next: poke 637,82 
220 poke 198,9: end 
230 data recover ram, check disk drive, quadra, 

performance test.disk log 



Editors Note: The following is an excerpt from a letter recenlty sent 
to us by Ray Quiring. We originally received a letter from Mr. Quiring 
back in September of 1984 staling tf\Ql fie had finally found the 
SAVE® bug. At that time, we could not reproduce the bug using the 
information he supplied. His bug reproduction technique was to create 
a disk error then SA V£@ a file while the error was still present. We 
tried, but the drive we were using worked Just fine. With that back- 
ground supplied, the following letter should make a bit more sense. 

The Disappearing SAVE@ 

The circumstances surrounding the disappearance of the bug gives 
anotfier clue as to what is happening. The procedure worked perfectly 
on both my drives, that is it would cause two files to point to the same 
track and sector. But then the drive misalignment became severe and 
both were eventually sent out to be realigned. When they came back 
the bug was nowhere to be found. This only reinforces my belief that 
the bug appears as a response to some DOS error condition. We never 
notice most DOS errors because the DOS tries several times before 
giving up and reporting the error. 

The explanation of the symptoms of the SAVE® bug is straight 
forward: nothing can ever be correct after two files point to the same 
track and sector, if the sector happens to be de-aliocaled in the BAM, 
the very next SAVE will try to use the sector as if it were available. 
Mysteriously, the two old files will point to part or all of the new file 
saved. How much of the new file gets linked in depends upon how 
much of the new file was saved before the DOS used the sector which, 
unknown to the DOS, was already "in use^" by the two previous files. 
You never find out about the problem until you try to use one of the 
two previous files. Delecting the multiple use of the same sector is too 
much to ask of a DOS, so what should have been done to prevent it? 
One thing that would have helped is to issue an error in the attempt to 
de-allocale a sector that is already de-allocated. The DOS does not 
presently do this. This would, at least, have flagged the condition early 
and may even have prevented the damage in the first place. It is 
understandable why the designers of the DOS did not do this: why 
prepare for a condition that logically should never occur? 

All the other symptoms of the SAVE® bug are explained by analysing 
the various combinations possible of two or more files pointing to the 
same sector, and the sector being allocated or de-allocated at any 
given time. This does not explain where the bug originates, I believe 
that the bug can be used as a sensitive lest of drive condition. When 
the drive is in good shape the bug stays hidden, when the drive suffers 
from heat prostration or head misalignment the bug reappears. 
Prevention of Ihe bug by resetting prior to and after using SAVE® may 
not be as sure a thing as it has been for me. 

Ray Quiring, Kerby, Oregon 
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A Gazeteer Of Programming Languages 



The following article appeared in the November 2, 1984 edition of the 
University of Waterloo 's mathNEWS. The author in unknown. 



SIMPLE 

'Simple is an acronym for Sheer Idiot's Programming Linguistic 
Environment. Ttiis language, developed at Hanover College for Tech- 
nolof^ical Misfits, was designed to make it Impossible to write code 
wilti errors in iL Ttic statements are, therefore, confined to 'begin", 
■end\ and 'stop'. No matter how you arrange the statements, you can't 
make a syntax error. 

Programs written in Simple do nothing usefuL They thus achieve the 
results of programs written in other languages without the tedious, 
frustrating process of testing and debugging. 



SLOBOL 

Slobo! is best known for the speed, or lack o\ it, oS its compiler. 
Although many compilers allow you to take a coffee break while they 
compile, Slobol compilers allow you to travel to Bolivia to pick the 
coffee. Forty-three proRrammers are known to have died of boredom 
silting at their terminals while waiting for a Slobol program to 
compile, 

VALGOL 

From its modest beginnings in Southern California's San Fernando 
Valley, Valgoi is enjoying a dramatic surge of popularity across the 
industry, 

Valgol commands include 'really', 4ike', 'well', and 'y+know'. Varia- 
bles are assigned with the ' = like^ and ' = totally operators. Other 
operators include the California Booleans. 'fersure' and 'noway'. 
Repetitions of code are handled in 'for/sure' loops Here is a sample 
Valgol program; 

like yknow (I mean) start 
it pizza = like bitchen and 

b =like tubular and 

c i^likegrodyax 

ttien 

for I =like 1 to oh maybe 100 
do wah - (ditty) 
barf{1} = totally gross (out) 
sure 
like bag this problem 

really 

like totally (yknow) 

Valgol is characterized by its unfriendly error messages. For example, 
when the user makes a syntax error, the interpreter displays the 

message: 

gag me witti a spoon 



UTHP 

This otherwise unremarkable language is distinguished by the ab- 
sence of an 's' in the character set. Programmers must substitute 'th'. 
Ulhp is said to be useful in prothething lithtth. 



LAIDBACK 

Historically, Valgol is a derivative of Laidback, which was developed 
at the (now defunct) Mann County Center for T'ai Chi. Mellowness, 
and Computer Programming, as an alternative to the intense atmo- 
sphere in nearby Silicon Valley. 

The centre was ideal for programmers who liked to soak in hot tubs 
while they worked. Unfortunately, few programmers could survive 
there for long, since the centre outlawed pizza and RC Cola in favour 
of bean curd and Perrier. 

Many mourn the demise of Laidback because of its reputation as a 
gentle and non-threatening language. For example. Laidback re- 
sponded to syntax errors with the message: 

Sorry, man, I can't deal behind that 



C- 

This language was named for the grade received by its creator when 
he submitted it as a project in a university graduate programming 
class. C- is best described as a 'low-level' programming language. In 
general, the language requires more C- statements than machine- 
code in.structions to execute a given task. In this respect it is very 
similarlo COBOL. 



SARTRE 

Named after the late existential philosopher, Sartre is an extremely 
unstructured language. Statements in Sartre have no purpose; they 
just are. Thus Sartre programs are leh to define their own functions. 
Sartre programmers tend to be boring and depressed and are no fun at 
parties- 



DOGO 

Developed at the Massachusetts Institute of Ot>edience Training, Dogo 
heralds a new era of computer-literate pets. Dogo commands include 
'sit\ 'stay', 'heel', and 'roll over\ An innovative feature of Dogo is 
'puppy graphics', a small cocker spaniel that occasionally leaves 
deposits as he travels across the screen. 
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And f his one from Nick Sullivan . . . 

Lingua Program atica 

As a programmer who has frequently been frustrated by the lack of 
flexibility of conventional higli-level programming languages, I am 
pleased to report the recent completion of a new language that 
promises to leave Pascal and the others stumbling in its tailwind. The 
new language is called LATIN (not to be confused with the natural 
language, l-atin, with which it is. however, identical), 

LATIN offers such conveniences as Roman numeral mode (for those 
who are tired of trying to deal with clumsy Arabic numbers), output to 
marble, and a sophisticated user interface that features not just icons 
but alstj omens. The package includes complete error detection and 
punishment. Program execution is rapid; however, programmer exe- 
cution is painfully slow. 

The carefully written documentation is hand-copied on papyrus 
scrolls by Rgyplian slaves, and scans nicely. The language is provided 
on a sturdy double-sided discus, designed for years of trouble-free 
tise. 

Availability of LATIN is something of a problem at present, as the 
compiler is written not in assembler but in an intermediate- level 
language called GREEK (G-Code), which has yet to be implemented 
on any microcomputer. 

And (his one by Kari Hi/don . . . 

NORTH 

NORTH programs can only execute efficiently where snow falls at 
least 5 months of the year. This is because many NORTH program- 
mers become sick up and fed with their environment and move on to 
SOUTH. Almost all NORTH programs are totally useless in the 
SOUTH environment. 

NORTH programs are immediately recognizable by the " , eh " suffix 
which seems to be necessary after every line. Although there are other 
slight differences, most NORTH programs can be translated to SOUTH 
by replacing the " , eh " suffix with '^ , uh ''. 

Debugging NORTH programs is no probs. The "Gimme a break" 
command can be inserted to slop programs from taking off with goofs, 
and after an error, the "Check it out" command shows the offending 
botches. 

The following is a demo program that comes with the NORTH 
interpreter: 

lOfiosers - 1, ehi 

20 buzzhoser, " what's happenin man?", eh 

30 far out, eh hosers = hosers + 1 , eh 

40 If fiosers < beer/6 then 20, eh 

50 if dough = then cruise, eh : goto 50, eh 

60 it donuts = then cruise, eh 

70 if beer < 24 then cruise, eh : beer = beer + 24, eh 

80 killer, eh 

90 on stereo goto heavy metal, heavy metal, heavy metal 

100 while beer>0, eh 

no beer = beer - hosers, eh 

120endwhile. eh 

130 if munchies then do food, eh 

140 if burnt out then crash, eh : else 70, eh 
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"Efficient?, . Oh yes, it's efficient! 

Maybe a little TOO efficient/' 
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News BRK 



Please Note: The Transactor has 
a new phone number: (416) 878 8438 



Transactor News 

Submlning NEWS BRK 
Press Releases 

If you have a press release which you 
would like to submit for the NEWS BRK 
column, make sure that the computer or 
device for which the product is intended is 
prominently noted. We receive hundreds 
of press releases for each issue, and ones 
whose intended readership is not clear 
must unfortunately go straight to the trash 
bin. Price, availability, and phone numbers 
are also important. It should also be men- 
tioned here that we only print product 
releases of specific interest when related 
somehow to Commodore equipment. 

The Worst Kind Of Crash 

Normally here at The Transactor we like to 
hear aboul new kinds of crashes. Not Ihis 
time. John Mostacci, Art Director at The 
Transactor, had the ultimate misfortune of 
experiencing an auto mishap of the far- 
worse-th an -fender-bender type variety. 
Photos of John's car (which now looks 
more like a slice of pizia with a bite taken 
out of it) would make great material for a 
fairly gruesome tale- 

You'll be glad to know John is ok except for 
just enough damage to re[;der him officially 
incapacitated, A broken forefinger to his 
right and a nasty gash on his left, not to 
mentioEi a merciless blow to the knee and 
other assorted gouges, meant this months 
cover would require a contingency plan. I'd 
like to thank Carlo Mostacci for coming to 
(he rescue. Fortunately for us. two artists 
were slated for the Mostacci family, and 
fortunately for Carlo his supervisor had two 
taped up hands (Fortunately for me they 
both have a sense of humor, right guys? 1 
said, tight guys?). 

John should be back to the brush for the 
next cover, but until then, on behalf of The 
Transactor staff and readers, "Get well 
soon. John, we miss you". 

Events 

PCCFA - Computers In Action 

It is with great pleasure that we announce 
the sixth annual Pacific Coast Computer 
Fair, Computer In Action, to be held Sep- 
tember 14 and 15, 1985, at the Robson 
Square Media Centre, Vancouver. B-C. 



Ours was the first personal computer fair 
held in western Canada and is unique as 
the only major Canadian fair presented by 
a non-profit association. Each year it draws 
from five to eight thousand visitors- 

One of the most exciting aspects of the Fair 
is our speakers program. This year we will 
again fiave over two dozen speakers, in- 
cluding: 

• Alan Boyd, Director of Software Acquisi- 
tion, Microsoft 

• Jim Button, author of PC-File 111 

• Andy Hertzfeld, principal software archi- 
tect of the Apple Macintosh 

• Tim Paterson, co-author of MS-DOS 1.1 

• Bob Wallace, author of Microsoft Pascal 
and PC-Write 

The talks, panels, and workshops pre- 
sented will cover a wide range of topics 
related to personal computing. These will 
include: 

• Artificial intelligence 

• How to write for computer publications 

• Local area networking 

• Logo 

• Purchasing computer books 

• Purchasing computer software 

• Telecommunication 
•Unix 

For more information, please contact: 

Susan Brenan 

Pacific Coast Computer Fair Association 

P.O.Box 80866 

South Burnaby, B.C. 

V5H3YI 604 581-6877 



ISECON '85 - The Information 
Systems Education Conference 

ISECON. sponsored by the Data Processing 
Management Association Education Foun- 
dation (DPMA-EF), will be held October 
26th & 27th, 1985, a( The Sheraton Hous- 
ton Hotel in Houston. TX. 

This years' theme is Dissemination of Infor- 
mation Systems (IS). 

More than sixty presentations and panel 
discussions on topics of major concern to IS 
professionals: exhibits presented by major 
publishers and manufacturers of hardware. 



software, and audio/visual delivery sys- 
tems; DPMA Special Interest Group of 
Education (EDSIG) Educator Award presen- 
tation; computer him and video tape festi- 
val; keynote speaker - IBM Fellow Dr. 
Harlan Mills, and nationally recognized 
luncheon speaker. 

Who should attend; Computer systems ed- 
ucation; undergraduate instructors with 
majors in data processing, computer sci- 
ence and management information sys- 
tems; business professionals with interest 
in computer information systems; and fu- 
ture IS professionals- For more informa- 
tion, contact: 

ISECON '85 

Data Processing Management Association 

505 Busse Highway 

Park Ridge, IL 

60068-3191 312 825-8124 



Western Ontario Business/ 
Computer Show and Seminar 

December 2nd. 3rd &4lh 
City Centre Complex 
Commonwealth Ballroom 
Holiday (nn 
London, Ontario 

A sales success story you can put to work 
for you! If you sell, . . business machines, 
computer hardware, computer software, of- 
fice furniture, office copiers, typewriter/ 
word processors, filing systems, business 
telephone systems, ofhce supplies and 
services, any products in the computer and 
business technology line. . . the Show & 
Seminar should be a vital part of your sales 
strategy. 

Pius. . . we arrangeafree seminar serieson 
up-to-the-minute business trends - a 
proven drawing card that will bring quali- 
fied sales leads directly to you. 

To reserve space or obtain further informa- 
tion, contact: 

Don Young, Exhibits Manager 
Brian Jones, Show Manager 
Southex Exhibitions 
M50 Don Mills Road 
Don Mills, Ontario 
M3B2X7 416 445-6641 
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Evolution of the Digital Pacific 

PTC '86. the 8fh Annual Forum of the 
Pacific Telecommunications Council, will 
continue the discussion of telecommunica- 
tions for Pacific development. Tfie confer- 
ence will be field January 12lh - 15th. 
1986, Hawaiian Regent Hotel. Waikiki. 
Honolulu Hawaii. 

Three sub-themes of PTC '85 will examine 
1) Current telecommunications develop- 
ments in the Pacific; 2} Future develop- 
ments including computer communication 
convergence, artificial intelligence, ISDN; 
3) Training & Education needs and pro- 
grams relevant to current and future needs, 

PAPERS are requested in each of the three 
sub-themes. 

1 . Current developments will cover a broad 
spectrum including facilities develop- 
ments, business aspects, user needs an 
concerns, regulatory and policy ques- 
tions, standards, economics. Focus may 
e on voice, data, video and broadcast 
topics- 

2. Future developments will focus on prob- 
able implementations will will impact 
telecommunications and societies in the 
1990'5 and beyond. Papers should focus 
on the technological aspects as well as 
on the possible impact - social, eco- 
nomic, education. 

3. Overviews of existing lelecommunica- 
lion Training organizations and pro- 
grams including discussions of how 
program relate to perceived future 
needs of trainees and users. 

Papers written jointly by persons from dif- 
ferent countries are encouraged. Please 
submit a one page outline of your proposed 
paper to PTC "86. 

DEADLINES: Outlines for proposed papers 
must be received by June 15, 1985. Notifi- 
cation of accept a nee /non acceptance will 
be given August 1st, 1985. First full drafts 
will be due September 30th, 1985. Final 
manuscript will be due November 30lh. 
1985. 

EXHIBITS related to the conference themes 
are especially invited. For PAPERS, EX- 
HITITS or INQUIRIES, please contact: 

Richard J, Barber, PTC Executive Director 

Jan C- Goya, PTC Secretary 

PTC '86 

1 i 10 University Avenue, '308 

Honolulu, HI 96826 808941-3789 



Books 

Four New Books from Abacus 

COMPILER BOOK for the C64 & C128 

The Compiler Book illustrates how a com- 
puter can transform a high-level language 
into machine-executable code. The reader 
will also iearn how to design a language 
suited to his problems and write a corres- 
ponding compiler. It's not only for those 
who need to understand or write compil- 
ers, but also for those who want to know 
more about how their computer works. 
Also included as a complete assembler and 
disassembler, and an introduction to the 
6510 machine language commands. 

CAD for the C64& CI 28 

This book offers a detailed and an easy-lo- 
understand introduction into the fascinat- 
ing world of Computer Aided Design, Many 
examples and programs included as we 
cover topics on 3-Dimensiona] drawing, 
reflection, duplications, zoom, and filling 
and much more. The reader will learn how 
lo use the full capacity of his C64 or CI 28 
by designing, calculating, drawing and doc- 
umenting object. 

MORE TRICKS AND TIPS 

This book is the second volume of impor- 
tant techniques to aid the reader in pro- 
gramming on the Commodore 64. Topics 
covered include software protection; ex- 
tending BASIC commands; character, 
sprite and multicolor graphics; interrupts; 
the kernal and operating system and others 
as well. With these helpful tips, the reader 
will enhance the usefulness of the Commo- 
dore 64. 

Presenting The ATARI ST 

Jack Tramiel has launched the ATARI ST - 
his third major product for the home com- 
puter market. As with his highly successful 
VIC-20 and record-shattering 

Commodore-64, the new ATARI ST prom- 
ises to break current price/performance 
barriers to become ttie computer that 
brings the user "power without the price." 

The book Presenting t he ATARI ST give you 
an in depth look af this much publicized 
computer, Lothar Englisch and Jorg Walko- 
wiak, two computer experts and best- 
selling authors examine this fascinating 
computer. Based upon hands on experi- 
ence with the ST, they examine the fantas- 
tic capabilities of the ST - from the design 
of the hardware to the sophisticated operat- 
ing system. 



As with other ABACUS books, Presenting 
the ATARI ST will be sure to give complete 
coverage of the subject. 

For more information contact: 

Abacus Software, Inc. 
2201 Kalamazoo S.E. 
P.O. Box 72 M 
Grand Rapids, Ml 
49510 616241-5510 



How To Write Papers And Reports 
At>out Computer Technology 

A new book in the IS! Press Professional 
Writing Series in now available lo help 
computer professionals write effective doc- 
umentation, proposals, specifications, re- 
ports, and papers. The book covers a large 
number of topics including: What makes a 
good user manual? How do you define your 
audience? What techniques work best for 
getting information through interviews? 
How do you write proposals that work? 
How can you incorporate graphics into 
your writing? 

The author, Charles H. Sides, is a lecturer 
in the Massachesetts Institute of Technolo- 
gy's Writing Program. His feeling is that 
communication is a vitally important Junc- 
tion for every computer professional and 

that writing is sorely neglected during most 
professional training. His book fills that 
void. Written in a lively, readable style, the 
book helps remove the mystique and ag- 
gravation from professional writing respon- 
sibilities; it belongs on llie desk of everyone 
in the computer industry who needs to 
write. 



How To Write Papers And Reports About 
ComputerTechnology(l 62 pages) is availa- 
ble as a paperback (ISBN 0-89495-035-5) 
for $21.95. It is available at local booksel- 
lers or direct from ISl Press. Prepaid orders 
are shipped postpaid; billed orders are 
charged shipping and handling. Orders 
may be placed toll-free by calling 800 523- 
1850, ext, 1399. 

Review and examination copies are availa- 
ble for reviewers, journalists, and educa- 
tors considering the book for adoption, and 
may be obtained by calling 215 386-0100. 
exl. 1302. 

Additional information may be obtained by 
writing to: 

ISl Press 

3501 Market Street 

Philadelphia. PA 19104 
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The 1984 Canadian 
World of Commodore show was 
the largest and best attended show 
in Commodore International's 
history. Larger than any other 
Commodore show in the World 
and this year's show will be 
even larger. 

World of Commodore III 
is designed specifically to appeal 
to the interests and needs of 
present and potential Commodore 
owners. 

Everything about your 
present or future Commodore 
computer - from hardware to 
software, Business to Personal to 
Educational - from over 90 
International Exhibitors. Price of 
admission includes free ^^ ^ 

seminars, clinics, ^y''''^^^^ 

contests and free ^y'^^n^^^ ^^0L 
parking. ^^x*^ C/' 
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A IRNTKH MCHOIS PKKSKNTATION 

For more information call: 
<416}439-4I40 



JOIN TPUG 

The largest Commodore Users Group 

Benefit from: 

Access to library of public domain software 
for C-64, VIC 20 and PET/CBM 

Magazine (10 per year) with advice from 

Jim Butterfieid 

Brad Bjomdahl 

Liz Deal 



TPUG yearly memberships: 

Regular member (attends meetings) 
Student member(full'time, attends meetings) 
Associate (Canada) 
Associate (U.S.A.) 

Associate (Overseas— sea mail) 
Associate (Overseas — airmail) 



-$35.00 Cdn. 

— $25.00 Cdn. 

— $25.00 Cdn. 
—$25-00 U.S. 

— $30,00 Cdn. 

— S35.00 U-S, 
-$45.00 U.S. 



FOR FURTHER INFORMATION: 

Send $1.00 for an information catalogue 

(tell us which machine you use!) 

To: TPUG INC, 
DEPT. A, 

1912A AVENUE RD_, SUITE 1 
TORONTO, ONTARIO 
CANADA M5M 4A1 



COMAL INFO 

If you have COMAL— 

we have information. 



BOOKS: 

• COMAL From A To Z, S&95 

- COMAL workbook, S6 95 

• Commodore 64 Graphics With COMAL, 514.95 

• COMAL Handbook, S18.95 

• Beginning cowal, 522.95 

• Structured Programming With comal, S26.95 

• Foundations With COMAL, 519.95 

• Cartridge Graphics and Sound, 59.95 

• Captain COMAL Gets Organized, S19.95 

• Graphics Primer 519.95 

• COMAL 2.0 Packages, $19.95 

• Library of Functions and Procedures, S19.95 

OTHER: 

• COMAL TODAY subscription, 6 issues, 514.95 

• COMAL 0.14, Cheatsheet keyboard Overiay 53.95 

• COMAL starter Kit (3 disks, 1 book), 529.95 

• 19 Different COMAL Disks only 594.05 

• Deluxe COMAL Cartridge Package, 5128.95 
(includes 2 books, 2 disks, and cartridge) 

ORDER NOW: 

Calt TOLL-FREE: l-800-356'5324 ext 1307 VISA or MasterCard 
ORDERS ONLY. Questions and informadon must call our 
Info Line: 608-222-4432. All orders prepaid only-no C.O.D. 
Add 52 per book shipping. Send a SASE for FREE Info 
Package or sena check or money order in US Dollars tO: 

COMAL USERS CROUR aS.A., LIMITED 

5501 Croveland Ten, Madison, wi 53716 

TRADEMARKS Commooore 6a of Commoaore Electronics ixsX:, 
captam COMAl of COMAi user^ Croup. USA, Lta. 








Simpfy code your co-ordinates onto the 
postage powered order form and every pro- 
gram from each issue will be locked in, 
energized, and transported from our star- 
base directly to yours! Warp 9 will seem 
siow compared to the time you save typing, 
and the programs will give your machine 
that look and feel of a fresh set of Difithium 
Crystals! Coast through the Neutral Zone 
with The Transactor Disk! 



Only $7.95 Each! 

6 Disk Subscription 

Just $45.00! 




The Transactor presents, 

The Complete Commodore 

Inner Space Anthology 



The Cn m rilete 



Inner Space Anthology 




Only $14.95 

Postage Paid Order Form at Center Page 



